Function FtpFileGet(byval hConnect As HINTERNET, ByRef RemoteFile As String, ByRef LocalFile As String, byval fFailExists As Integer = 0, byval dwFlagAttributes As Integer = 0, byval dwFlags As Integer = FTP_TRANSFER_TYPE_BINARY ) As Integer
Функция позволяет получить файл с FTP сервера
hConnect - хендл , возвращенный функцией FtpConnect
RemoteFile - имя файла с расширением на удаленном сервере
LocalFile - имя файла для сохранения на локальном сервере
fFailExists - флаг , который задает метод сохранения файла. Если флаг равен FALSE , то сохраняемый файл на локальном сервере будет перезаписан при существовании уже существующего. Если флаг равен TRUE , то при существовании файла с таким же именем будет возвращена ошибка
dwFlagAttributes - аттрибуты нового сохраняемого файла. Подробнее см. функцию Create_File
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.intel.com","anonymous","anonymous",,INTERNET_FLAG_PASSIVE)
If hConnect<>0 Then
FtpFileGet(hConnect,"readme.txt","D:\readme999.txt")
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation