1 Тема от ToTAmon (изменено: ToTAmon, 2011-03-25 18:45:09)

  • ToTAmon
  • Участник
  • Неактивен

Тема: VBS проверка окончания заливки файла с FTP с помощью curl

C закачкой разобрался.
Теперь бы найти как понять докачал ли курл файл или нет .

Эта функция не работает, как я над ней не извращался, разве что, интервал засыпания в цикле ставить сек 50 но это жесть:

Function FileLive(nameFile, sleep)
    Set fs = CreateObject("Scripting.FileSystemObject") 
    if sleep = 1 then
        WScript.Sleep 15000 'даём время на скачивание (15 сек)
    Else
        WScript.Sleep 2000 'даём время на скачивание (2 сек)
    end If
    tempSize = -1
    if FS.FileExists(nameFile) Then
        set f = FS.GetFile(nameFile)
        Do   
            tempSize = f.Size  
            WScript.Sleep 3000 'даём время на изменение файла (3 сек)
            set fs = CreateObject("Scripting.FileSystemObject") 
            set f = FS.GetFile(nameFile)
        Loop Until ((tempSize = f.Size) And (tempSize > 0)) 
    end If
    FileLive = FS.FileExists(nameFile)
    Set fs = Nothing 
    Set f = Nothing 
End Function

Насколько я понимаю curl буферизует скачку. Правда когда в проводнике жму ф5 каждую сек размер файла меняется. А тут ((

Разобрался, достаточно было в run указать последний параметр True , вопрос закрыт.