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

ФОРУМ (здесь можно обсудить эту статью, а также любые проблемы программирования на различных макроязыках и в скриптовых средах)

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

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

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

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

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

Библиотека предоставляет единственный объект "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

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

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

© 2007 http://www.script-coding.com При любом использовании материалов сайта обязательна ссылка на него как на источник информации, а также сохранение целостности и авторства материалов.