Работа с FTP сервером
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (Новая страница: «Для работы с FTP сервером из макросов предназначен класс TgsFTPClient, который яв…») |
SYSDBA (обсуждение | вклад) |
||
| Строка 3: | Строка 3: | ||
Option Explicit | Option Explicit | ||
Sub DownloadFileFromFTP | Sub DownloadFileFromFTP | ||
| − | |||
Dim FTP | Dim FTP | ||
Set FTP = Designer.CreateObject(nil, "TgsFTPClient", "") | Set FTP = Designer.CreateObject(nil, "TgsFTPClient", "") | ||
| Строка 12: | Строка 11: | ||
If FTP.Connect Then | If FTP.Connect Then | ||
| − | If FTP.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) 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" | ||
| + | End If | ||
End If | End If | ||
End If | End If | ||
Designer.DestroyObject(FTP) | Designer.DestroyObject(FTP) | ||
| − | |||
End Sub | End Sub | ||
</syntaxhighlight> | </syntaxhighlight> | ||
[[Category:Учебный курс]] | [[Category:Учебный курс]] | ||
Версия 18:31, 24 января 2012
Для работы с 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" End If End If End If Designer.DestroyObject(FTP) End Sub
