Работа с FTP сервером - История изменений

SYSDBA в 14:45, 25 ноября 2016

2016-11-25T14:45:47Z

SYSDBA в 10:28, 25 января 2012

2012-01-25T10:28:21Z

SYSDBA в 15:31, 24 января 2012

2012-01-24T15:31:45Z

SYSDBA: Новая страница: «Для работы с FTP сервером из макросов предназначен класс TgsFTPClient, который яв…»

2012-01-24T14:47:29Z

Новая страница: «Для работы с FTP сервером из макросов предназначен класс TgsFTPClient, который яв…»

Новая страница

Для работы с 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.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) Then
MsgBox "Ok"
End If
End If

Designer.DestroyObject(FTP)

End Sub
</syntaxhighlight>

[[Category:Учебный курс]]

← Предыдущая		Версия 14:45, 25 ноября 2016
Строка 29:		Строка 29:

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

@@ Строка 16: / Строка 16: @@
        If FTP.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) Then
          MsgBox "Ok"
        End If
      End If
    End If

@@ Строка 3: / Строка 3: @@
 Option Explicit
 Sub DownloadFileFromFTP
    Dim FTP
    Set FTP = Designer.CreateObject(nil, "TgsFTPClient", "")
@@ Строка 12: / Строка 11: @@
    If FTP.Connect Then
-     If FTP.GetFile("/a_file_to_download.ext", "c:\local_file_name.ext", "", True) Then
+     If FTP.GetAllFiles("/") Then
-      MsgBox "Ok"
+      MsgBox "Список файлов на сервере: " & FTP.Files
      End If
    End If
    Designer.DestroyObject(FTP)
 End Sub
 </syntaxhighlight>
 [[Category:Учебный курс]]