Aneurism
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста, создал простенький макрос загрузки из локальной папки на удаленный FTP-сервер, все работает, только вот когда пропадает интернет, то скрипт, когда не находит удаленную папку выкидывает сообщение об ошибке:
Написал проверку связи, но сообщение все равно выскакивает. Как его образумить, чтобы он мне сообщение об ошибке не выдавал? Очень нужно, скрипт выполняется на удаленном компе, и сбрасывать это сообщение некому
Вот текст скрипта:
' VBS Script Generated by CuteFTP (TM) macro recorder.
' Generated at: 27.04.2010 12:42:14.
Dim fso
ExFolder = "C:\FTP\C_M2\"
Set fso = CreateObject("Scripting.FileSystemObject")
'Проверим наличие файла обмена локально
if not fso.FileExists(ExFolder & "C_M2.zip") then
wscript.quit(1)
End If
' Create TEConnection object
Set MySite = CreateObject("CuteFTPPro.TEConnection")
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "*имя сервера*"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 4
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "*Логин*"
MySite.Password = "пароль"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
'Проверим, доступен ли FTP-сервер
result = MySite.Connect()
If (result <> 1) Then
MySite.Disconnect
WScript.Quit
End If
MySite.Connect
MySite.Upload "C:\FTP\C_M2\C_M2.zip", "/C_M2/C_M2.zip"
MySite.LocalRemove "C:\FTP\C_M2\C_M2.zip"
MySite.Download "/C_M2/*.*", "C:\FTP\C_M2\"
'MySite.RemoteRemove "/C_M2/M2_C.zip"
MySite.Disconnect |
отображается или у всех?
