Работа с FTP сервером

Для работы с 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