Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

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

Ответить
Настройки темы
VBS/WSH/JS - [решено] Процесс бар загрузки фала из интернета

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


Сообщения: 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

 

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


Сообщения: 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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.



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

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Бар загрузки или выполнения процесса в bat cmd DJIOAN Скриптовые языки администрирования Windows 4 25-08-2015 00:36
Интернет - [решено] Остановка загрузки файлов из интернета Sinexa Microsoft Windows 7 2 09-03-2014 13:16
[решено] У меня проблема с подгрузкой текста из фала в пхп vlad_exe@vk Вебмастеру 2 28-05-2012 10:34
Получение данныз из формы в GUI c последующей отправкой в статус-бар. winipox AutoIt 4 27-09-2011 15:37
Автоматическая перезагрузка компа сразу после начала загрузки файлов из интернета Milena29 Хочу все знать 1 02-12-2008 10:40




 
Переход