Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

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

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

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

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


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


Конфигурация

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

Изменения
Автор: and331
Дата: 19-08-2013
Є скипт на vbs який завантажує файл але коли файл існує виходить помилка, як зробити заміну файлу.
Код: Выделить весь код
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
 
set a=createobject("msxml2.xmlhttp")
set b=createobject("adodb.stream")
a.open"get","Що",0
a.send
b.open
b.type=1
b.write a.responsebody
b.savetofile"Куди"

Отправлено: 11:33, 19-08-2013

 

Ветеран


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

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

and331, выкарыстоўвайце наступную методыку: adodb.stream savetofile - Пошук у Google → SaveToFile Method → SaveOptionsEnum.

З прычыны чаго Вы прыйдзеце да наступнага коду:
Код: Выделить весь код
Const  adSaveCreateOverWrite = 2
…
b.savetofile "Куды", adSaveCreateOverWrite
…

Отправлено: 11:54, 19-08-2013 | #2



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

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


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


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

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

Iska, не працює, помилка, відсутні дані потрібні для виконання цієї операції.

Отправлено: 12:57, 19-08-2013 | #3


Ветеран


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

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

and331, прывядзіце поўны код, уключаючы спасылку «"Що"».

Отправлено: 13:08, 19-08-2013 | #4


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


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

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

Це повний код
Це що білоруська мова, я українець, та до чого тут та ссилка Що
Ось тільки вона змінюється то якщо не працюватиме скажи.

Последний раз редактировалось and331, 19-08-2013 в 15:45.

Отправлено: 15:31, 19-08-2013 | #5


Ветеран


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

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

Цитата and331:
Це повний код »
Не полный.

Цитата and331:
Це що білоруська мова, »
Ага.

Цитата and331:
я українець »
А я — нет. И язык конференции — русский. Будете продолжать пытать украинским — я буду Вас пытать белорусским. Или, например, урду. Или суахили.

Цитата and331:
та до чого тут та ссилка Що »
Чтобы можно было воспроизвести Вашу ошибку. Именно для этого нужна конкретизация ссылки, на которой Вы получили указанную ошибку. Ибо у меня — работает:
читать дальше »
Код: Выделить весь код
Option Explicit

Const adModeReadWrite = 3
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2


Dim strUrl
Dim objXmlHttpRequest
Dim objStream


strUrl = "http://forum.oszone.net/thread-266463.html"

Set objXmlHttpRequest = WScript.CreateObject("MSXml2.XmlHttp")

With objXmlHttpRequest
	.Open "GET", strUrl, False
	.Send
End With

Set objStream = WScript.CreateObject("ADODB.Stream")

With objStream
	.Mode = adModeReadWrite
	.Type = adTypeBinary
	
	.Open
	.Write objXmlHttpRequest.responseBody
	.SaveToFile "c:\MyFile.html", adSaveCreateOverWrite
End With

Set objStream         = Nothing
Set objXmlHttpRequest = Nothing

WScript.Quit 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:40, 19-08-2013 | #6


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


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

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

Спасибо помогло.
Я так и понял что белорусский язык в ответ на украинский, ну а допустим я не понимаю руссий или кто-то другой, что ему делать, Це дискримінація Української мови

Отправлено: 20:49, 19-08-2013 | #7


Ветеран


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

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

Цитата and331:
Я так и понял что белорусский язык в ответ на украинский, »
Угу .

Цитата and331:
ну а допустим я не понимаю руссий или кто-то другой, что ему делать, »
Или страдать, или изучать. Третьего не дано. Тот же MSDN и TechNet до недавнего времени были сплошь на американском английском (да и сейчас там не намного больше русского стало) — то же самое. И общаясь на каком-либо «забугорном» форуме, находишься ровно в том же положении.

Цитата and331:
Це дискримінація Української мови »
Неа . Просто так сложилось.

Отправлено: 20:59, 19-08-2013 | #8



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Задать атрибуты файлу/папке через скрипт Habetdin Скриптовые языки администрирования Windows 15 21-11-2013 17:53
VBS/WSH/JS - [решено] Присвоить атрибуты файлу/папке через скрипт boss911 Скриптовые языки администрирования Windows 4 10-11-2009 06:19
Отправка сообщения через VBS скрипт buhanov Microsoft Windows NT/2000/2003 0 19-12-2008 11:26
Импортирование веток реестра через VBS XXXandr Microsoft Windows NT/2000/2003 9 18-07-2008 08:36
VBS/WSH/JS - Изменение параметров почты через VBS Pav Программирование и базы данных 5 18-06-2004 10:01


« Предыдущая тема | Следующая тема »


 
Переход