Тема: VBScript: работа с протоколом FTP с помощью компонента Chilkat FTP
Бесплатный COM-сервер Chilkat FTP позволяет:
* копировать файлы с/на ftp-сервер;
* копировать файлы с/на ftp-сервер непосредственно из памяти;
* создать каталоги, переименовать/удалить файлы/каталоги на ftp-сервере;
* получить листинг каталога на ftp-сервере в виде XML;
* работать с протоколом FTP в пассивном режиме.
Компонент доступен для скачивания на этой странице. Прямая ссылка. Дистрибутив (инсталлятор) имеет размер около 700 Кб. Примеры работы с компонентом можно найти здесь, правда, только для платной версии компонента (платная и бесплатная версии по функционалу похожи).
Простейший пример закачки файла на FTP:
Set oFtp = CreateObject("ChilkatFTP.ChilkatFTP")
oFtp.Hostname = "ftp.host.ru"
oFtp.Username = "vasya"
oFtp.Password = "passw"
res = oFtp.Connect()
If (res <> 1) Then
WScript.Echo oFtp.LastErrorText
WScript.Quit
End If
res = oFtp.ChangeRemoteDir("WWW")
If (res <> 1) Then
WScript.Echo oFtp.LastErrorText
WScript.Quit
End If
localFilename = "C:\Temp\test.jpg"
remoteFilename = "test.jpg"
res = oFtp.PutFile(localFilename, remoteFilename)
If (res <> 1) Then
WScript.Echo oFtp.LastErrorText
WScript.Quit
End If
oFtp.Disconnect
Простейший пример скачивания файла с FTP, полностью аналогичен предыдущему, отличается только одним методом:
Set oFtp = CreateObject("ChilkatFTP.ChilkatFTP")
oFtp.Hostname = "ftp.host.ru"
oFtp.Username = "vasya"
oFtp.Password = "passw"
res = oFtp.Connect()
If (res <> 1) Then
WScript.Echo oFtp.LastErrorText
WScript.Quit
End If
res = oFtp.ChangeRemoteDir("WWW")
If (res <> 1) Then
WScript.Echo oFtp.LastErrorText
WScript.Quit
End If
localFilename = "C:\Temp\test.jpg"
remoteFilename = "test.jpg"
res = oFtp.GetFile(remoteFilename, localFilename)
If (res <> 1) Then
WScript.Echo oFtp.LastErrorText
WScript.Quit
End If
oFtp.Disconnect
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.