Работа с FTP сервером
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| (не показана 1 промежуточная версия 1 участника) | |||
| Строка 16: | Строка 16: | ||
If FTP.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) Then | If FTP.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) Then | ||
MsgBox "Ok" | MsgBox "Ok" | ||
| + | Else | ||
| + | MsgBox "Невозможно скачать файл. Код ошибки: " & FTP.LastError | ||
End If | End If | ||
End If | End If | ||
| + | Else | ||
| + | MsgBox "Невозможно подключиться к серверу. Код ошибки: " & FTP.LastError | ||
End If | End If | ||
| Строка 25: | Строка 29: | ||
[[Category:Учебный курс]] | [[Category:Учебный курс]] | ||
| + | [[Category:Импорт/экспорт данных]] | ||
Текущая версия на 17:45, 25 ноября 2016
Для работы с FTP сервером из макросов предназначен класс TgsFTPClient, который является оберткой вокруг соответствующих функций WinInet. Ниже приведен код считывания файла из сети и записи его на локальный диск:
Option Explicit Sub DownloadFileFromFTP Dim FTP Set FTP = Designer.CreateObject(nil, "TgsFTPClient", "") FTP.ServerName = "ftp.myserver.com" FTP.UserName = "user_name" FTP.Password = "user_password" If FTP.Connect Then If FTP.GetAllFiles("/") Then MsgBox "Список файлов на сервере: " & FTP.Files If FTP.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) Then MsgBox "Ok" Else MsgBox "Невозможно скачать файл. Код ошибки: " & FTP.LastError End If End If Else MsgBox "Невозможно подключиться к серверу. Код ошибки: " & FTP.LastError End If Designer.DestroyObject(FTP) End Sub
