Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Jack_Sam Добрый день. Задача скопировать файл с ftp на диск с помощью VB Access 2003 нашел на этом сайте http://forum.codenet.ru/showthread.php?t=32353 пример переноса инф с ftp в папку на диске, делаю так:
Public Declare Function FtpGetFile _ Lib "wininet.dll" Alias "FtpGetFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, _ ByVal fFailIfExists As Boolean, _ ByVal dwFlagsAndAttributes As Long, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean Public Declare Function InternetOpen _ Lib "wininet.dll" Alias "InternetOpenA" ( _ ByVal sAgent As String, _ ByVal nAccessType As Long, _ ByVal sProxyName As String, _ ByVal sProxyBypass As String, _ ByVal nFlags As Long) As Long Public 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 nService As Long, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Long Public Declare Function InternetCloseHandle _ Lib "wininet.dll" (ByVal hInet As Long) As Integer Public Const INTERNET_SERVICE_FTP = 1 Public Const INTERNET_SERVICE_GOPHER = 2 Public Const INTERNET_SERVICE_HTTP = 3 ' Далее по кнопарю на форме: hINetSession = InternetOpen("IExplorer", 0, vbNullString, vbNullString, 0) hSession = InternetConnect(hINetSession, "10.100.1.139", 0, "yyyyyy", "332211", INTERNET_SERVICE_FTP, 0, 0) If FtpGetFile(hSession, "iq/Адреса.xls", "E:\iq\FTP\1\Адреса.xls", False, 0, 1, 0) = False Then MsgBox "не удалось" Else MsgBox "работа выполнена" End If Call InternetCloseHandle(hSession) Call InternetCloseHandle(hINetSession)
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.