Function FtpFilePut(byval hInet As HINTERNET, ByRef LocalFile As String, ByRef RemoteFile As String, byval dwFlags As Integer = FTP_TRANSFER_TYPE_BINARY) As Integer
Функция позволяет записать файл на удаленный FTP сервер
hInet - хендл , возвращенный функцией FtpConnect
LocalFile - имя файла на локальном сервере
RemoteFile - имя файла с расширением для сохранения на удаленном сервере
dwFlags - тип отправки файла. Может быть:
FTP_TRANSFER_TYPE_ASCII - ASCII способ отправки
FTP_TRANSFER_TYPE_BINARY - бинарный способ отправки
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"ftp.....","login","password")
If hConnect<>0 Then
FtpFilePut(hConnect,"D:\1.txt","1.txt")
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
Created with the Personal Edition of HelpNDoc: Full featured EPub generator