Добрый день! как можно добавить FTP клиент? основная часть программы уже написана, осталось добавить клиент, то есть как вы. VB Helper: HowTo: Upload and download files using FTP. Follow VBHelper on Twitter. MSDN Visual Basic Community. Keywords, FTP, upload, download.
Необходимо произвести соединение с FTP сервером и считать файл в поле RTF? Хоть убейте не могу врубиться как это сделать! Буду признателен за любое участие! . It is my first blog so dont be so hard on me i lose lots of my time to try get this to work so i decide to share it :)/> so here is the code so we add . Добрый день! Необходимо выполнить : - перенос (не копирование файлов) файлов по маске *.CP c FTP на локальный компьютер.
Dream. In. Code - > Downloading from FTP in VB6. It is my first blog so dont be so hard on me i lose lots of my time to try get this to work so i decide to share it so here is the code so we add Inet. FTP. Dim str_url As String. Dim s. FTPCommand As String 'the command send to ftp server.
Dim s. FTPSrc. File. Name As String ' the name of the file that we search in ftp server. Dim s. FTPTgt. File. Name As String 'optional it is for new name when you copy (you dont have to seth this it will copy it as the name of original). Dim s. FTPUser As String ' the username.
Dim s. FTPPwd As String ' the password. Dim f. Wait As Boolean. FTPurl as Strin ' the ip or the url of the FTP serve. FTPUser=txt. Username. Text. s. FTPPwd= txt. Password. Text. str_url="ftp: //" & s. FTPUser & ": " & s.
FTPPwd & "@" & s. FTPurl. s. FTPCommand = "GET" 'the command to FTP server. FTPSrc. File. Name = "Version. FTPTgt. File. Name = "Ver. HDD. ' send the line to Inet.
Inet. 1. Execute str_url, s. FTPCommand & Space(1) & s. FTPSrc. File. Name & " " & s. FTPTgt. File. Name.
NOW HERE IS THE TRICK YOU MUST WAIT TO BE SHURE IT IS DONE WITH THIS CYCLE HERE. Do Until f. Wait = False. Wait = Inet. 1. Still. Executing. and here we go now that you copy your file you can read it and do what ever you want with it now if you want to send to FTP just seth the command to PUT and your done i hope you like it.