Библиотека Ftp.dll и её объектная модель

Назначение и установка

Библиотека Ftp.dll - небольшой ActiveX, который может быть использован в любых средах, которые в состоянии выступить в роли OLE-клиента, например, в административных скриптах Windows (.vbs и .js). Автор программы - компания Sapien. Библиотека Ftp.dll распространяется бесплатно. Вы можете скачать библиотеку здесь (версия 1.0.0.1 от 12.09.2007г., архив 15 831 байт). Прямая ссылка здесь. Примеры кода в настоящей статье приводятся на языке VBScript для административных сценариев Windows.

Возможности, предоставляемые библиотекой: скачка и закачка файлов по FTP. Есть возможность указать порт, признак пассивного режима, логин и пароль.

Порядок установки:

Скопируйте библиотеку на жёсткий диск вашего компьютера, например в такой каталог:

C:\WINDOWS\system32\
Зарегистрируйте библиотеку с помощью regsvr32.exe. Командная строка регистрации библиотеки может выглядеть, например, так:

regsvr32.exe "C:\WINDOWS\system32\Ftp.dll"

Библиотека предоставляет единственный объект "Primalscript.FTPTransfer":

Set FTP = CreateObject("Primalscript.FTPTransfer")

Свойства и методы

Function Connect(ByVal Server As String, ByVal User As String, ByVal Password As String) As Long	Устанавливает соединение. User и Password могут быть пустыми строками. Возвращает 0 в случае неудачи.
Sub Disconnect()	Разрывает соединение.
Function Get(ByVal Remotefile As String, ByVal LocalFile As String) As Long	Скачивает файл. Возвращает 0 в случае неудачи.
Property Passive As Long	Признак passive mode. По умолчанию 1.
Property Port As Long	Номер порта. По умолчанию 0 (стандартный порт).
Function Put(ByVal Remotefile As String, ByVal LocalFile As String) As Long	Закачивает файл на сервер. Возвращает 0 в случае неудачи.
Property Status As String только чтение	Текстовое описание состояния объекта. Может быть пустым, "Connected", "Download complete" и т.п.

Примеры

Скачивание файла с сервера:

Set FTP = CreateObject("Primalscript.FTPTransfer")
If FTP.Connect("ftp.microsoft.com", "", "") = 0 Then
    WScript.Echo "Status: " & FTP.Status
Else
    FTP.Get "/developr/visual_c/readme.txt", "C:\temp\ms_readme.txt"
    WScript.Echo "Status: " & FTP.Status
    FTP.Disconnect
End If

Закачивание файла на сервер:

Set FTP = CreateObject("Primalscript.FTPTransfer")
FTP.Connect "my_ftp.ru", "userName", "pass"
FTP.Put "/folder/subFolder/test.txt", "C:\Temp\ms_readme.txt"
WScript.Echo "Status: " & FTP.Status
FTP.Disconnect

Составление - Людоговский Александр

Перейти на главную страничку сайта (список статей, файлы для скачивания)