Копирование файла с ftp

[nikola20]

Подскажите какой нибудь код для реализации данной процедуры.

[Oxygen]

Ну это уже совсем! FAQ уже красным цветом выделили, но люди все равно ленятся туде смотреть. Кроме этого, поиск по слову ftp. Первая страница дает нужный результат. Вот ссылка.

http://bbs.vbstreets.ru/viewtopic.php?t=7720

[nikola20]

мне не совсем понятно. Есть ftp сервер с сети предприятия. Доступ только по ftp. Необходимо еждневно скачивать архивные файлы и желательно автоматически (по таймеру). Хочу состряпать код на VB, который бы решал эту задачу ( тем более это только часть всей процедуры, которая должна быть выполнена)

[RayShade]

Поищи по форуму urldownloadtofile

[tyomitch]

или уж сразу качалку в кирпичах...

[Oxygen]

Как вариант использовать Microsoft Internet Transfer Control. В MSDN хорошее описание и примеры.

[nikola20]

Нашел в MSDN и переделал под себя следующий код:

Код: Выделить всё

Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Const FTP_TRANSFER_TYPE_ASCII = &H1
Const FTP_TRANSFER_TYPE_BINARY = &H2
Const INTERNET_DEFAULT_FTP_PORT = 21               ' default for FTP servers
Const INTERNET_SERVICE_FTP = 1
Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connections
Const INTERNET_OPEN_TYPE_PRECONFIG = 0                    ' use registry configuration
Const INTERNET_OPEN_TYPE_DIRECT = 1                        ' direct to net
Const INTERNET_OPEN_TYPE_PROXY = 3                         ' via named proxy
Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   ' prevent using java/script/INS
Const MAX_PATH = 260

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean

Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean

Const PassiveConnection As Boolean = True

Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net
    'E-Mail: KPDTeam@allapi.net
    Dim hConnection As Long, hOpen As Long, sOrgPath  As String
    'open an internet connection
    hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    'connect to the FTP server
    hConnection = InternetConnect(hOpen, "10.32.0.103", INTERNET_DEFAULT_FTP_PORT, "", "", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
    'set the current directory
    FtpSetCurrentDirectory hConnection, "backup/Export/"
    'retrieve the file from the FTP server
    FtpGetFile hConnection, "060606.rar", "c:\060606.rar", False, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0
    'close the FTP connection
    InternetCloseHandle hConnection
    'close the internet connection
    InternetCloseHandle hOpen
End Sub


Однако: файл 060606.rar создается, но это не тот файл который на сервере. Грубо говоря - пустой. Подскажите, где я не так сделал....

[nikola20]

В дополнение к прошлому сообщению:
файл не совсем пустой его объем 47 байт , а содержимое:
GIF89a
и еще какая-то лабуда из символов.
Кто может сказать , что все таки происходит?

[Хакер]

nikola20
Ну значит часть файла всё таки скачивается... а GIF89a


а это хеадер ГИФозного формата

[alibek]

Укажи FTP_TRANSFER_TYPE_BINARY.

[Хакер]

Нашел в MSDN и переделал под себя следующий код:

Код: Выделить всё

    'KPD-Team 2000
    'URL: http://www.allapi.net
    'E-Mail: KPDTeam@allapi.net


Да уж странный у MSDN сайт какой-то. allapi.net . Больше на АПИГуиду похоже

[nikola20]

FTP_TRANSFER_TYPE_BINARY - подходит. болшое спасибо.

[Конь]

А зачем париться?
Можно посмотреть в хелпе по VB использование Internet Transfer, там код строчек на 5-10!