Просмотр исходного текста страницы Работа с FTP сервером

Для работы с FTP сервером из макросов предназначен класс [[GsFTPClient.TgsFTPClient|TgsFTPClient]], который является оберткой вокруг соответствующих функций WinInet. Ниже приведен код считывания файла из сети и записи его на локальный диск:
<syntaxhighlight lang="vbnet">
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
</syntaxhighlight>

[[Category:Учебный курс]]
[[Category:Импорт/экспорт данных]]