[решено] Процесс бар загрузки фала из интернета

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Процесс бар загрузки фала из интернета

Добрый день! Есть начало скрипта, в котором нужно скачать файл

Код:

InetFile = "http://pasker36.ru/pasker36.xls"

localFile = "C:\прайс.xls"

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

oXMLHTTP.Open "GET", InetFile, 0

oXMLHTTP.Send

Set oADOStream = CreateObject("ADODB.Stream")

oADOStream.Mode = 3

oADOStream.Type = 1

oADOStream.Open

oADOStream.Write oXMLHTTP.responseBody

oADOStream.SaveToFile localFile, 2

Set oXMLHTTP = Nothing

Set oADOStream = Nothing

Вопрос следующий, как приостановить выполнение скрипта до того момента,пака фал полностью не загрузится, дабы дальнейшие операции с фалом (строки кода после скачивания) выполнялись корректно?
Может какой "прогресбар" прикрутить...

Нашел решение, переделав скрипт, правда без "прогесбара". Если кому интересно

Код:

strFileURL = "http://pasker36.ru/pasker36.xls"

strHDLocation = "C:\прайс.xls"

Fetch the file

   Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")



   objXMLHTTP.open "GET", strFileURL, false

   objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then

Set objADOStream = CreateObject("ADODB.Stream")

objADOStream.Open

objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody

objADOStream.Position = 0    'Set the stream position to the start

Set objFSO = Createobject("Scripting.FileSystemObject")

If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation

Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation

objADOStream.Close

Set objADOStream = Nothing

End if

Set objXMLHTTP = Nothing

On Error Resume Next 

MsgBox "ПРАЙС-ЛИСТ ЗАГРУЖЕН", vbOKOnly + vbSystemModal