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

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Процесс бар загрузки фала из интернета

Настройки темы

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

Dedcase

Новый участник

Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

Код:

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

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

Отправлено: 10:39, 15-09-2015

Dedcase

Новый участник

Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

Код:

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

Отправлено: 12:14, 15-09-2015 | #2