1 Тема от andreyussur (изменено: alexii, 2014-03-27 11:52:33)

  • andreyussur
  • Гость

Тема: VBScript: загрузка c ftp

Здравствуйте.
Сам я в VBS вообще не понимаю. Необходим скрипт который бы подключался по фтп на сервер, шёл в определенную папку и там проверял дату создания файла со статичным именем. Если дата совпадает с сегодняшней, то он качал бы его в папку на локальном компьютере, если нет, то ждал бы например минут 20, и повторял запрос. После того как скачался файл скрипт бы завершался.
На форуме много похожих тем, и я в принципе нашёл рабочие скрипты для скачивания с фтп, и для проверки даты создания у файла, но как их срастить даже не представляю. На всякий случай выкладываю результат своих поисков.
Это скачивание с фтп


Set MySite = CreateObject("CuteFTPPro.TEConnection")

' Initialize remote server host name, protocol, port, etc.
MySite.Host = "192.168.1.1"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 2
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "ftpuser"
MySite.Password = "ftpuser"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
If MySite.IsConnected<>-1 Then    
   MsgBox "Не удалось подключится к Серверу"
   Quit(1)
else
rem   MsgBox "Подключение к серверу успешно!!! 'ОК'!"
End If
MySite.Download "folder1/file.zip", "c:\folder2\file.zip"
MySite.Disconnect
MsgBox "файл успешно скачан"

Это проверка даты создания

Option Explicit

Dim strPath
Dim lngErrCode


strPath = "d:\backup\file1.zip"

With WScript.CreateObject("Scripting.FileSystemObject")
    If .FileExists(strPath) Then
        WScript.Echo "File [" & strPath & "] exists."
        
        If DateDiff("d", .GetFile(strPath).DateCreated, Now()) = 0 Then
            WScript.Echo "Creation date of file [" & strPath & "] is today."
            lngErrCode = 1
        Else
            WScript.Echo "Creation date of file [" & strPath & "] is not today."
            lngErrCode = 0
        End If
    Else
        WScript.Echo "File [" & strPath & "] not found."
        lngErrCode = 0
    End If
End With

WScript.Quit lngErrCode

Собственно вопрос: подскажите как мне эти два скрипта срастить.
Буду очень благодарен за любую помощью