Function FtpFileOpen(byval hConnect As HINTERNET, ByRef File As String, byval dwFlags As Integer = FTP_TRANSFER_TYPE_BINARY, byval dwAccess As Integer = GENERIC_WRITE) As HINTERNET
Функция открывает файл для записи на отдаленном FTP сервере. По окончании записи хендл , возвращенный функцией FtpFileOpen, должен быть закрыт с помощью FtpFileClose
hConnect - хендл , возвращенный функцией FtpConnect
File - строка с именем имеющегося файла на сервере
dwFlags - тип записи файла. Могут быть:
FTP_TRANSFER_TYPE_ASCII - ASCII способ записи
FTP_TRANSFER_TYPE_BINARY - бинарный способ записи
dwAccess - Значение, которое определяет, как файл будет доступен. Это может быть GENERIC_READ или GENERIC_WRITE, но не оба одновременно.
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect,hFile
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"Ftp....","Login","Password")
If hConnect<>0 Then
hFile = FtpFileOpen(hConnect,"1.txt")
FtpWriteFile(hFile,@"Test",4)
FtpFileClose(hFile)
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator