[решено] Загрузка файлу через vbs

[and331]

Є скипт на 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"Куди"

[Iska]

and331, выкарыстоўвайце наступную методыку: adodb.stream savetofile - Пошук у Google (https://www.google.ru/search?q=adodb.stream+savetofile) → SaveToFile Method (http://msdn.microsoft.com/en-us/library/windows/desktop/ms676745(v=vs.85).aspx) → SaveOptionsEnum (http://msdn.microsoft.com/en-us/library/windows/desktop/ms676152(v=vs.85).aspx).

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

[and331]

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

[Iska]

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

[and331]

Це повний код
Це що білоруська мова, я українець, та до чого тут та ссилка Що
Ось (https://pslu1q.bn1.livefilestore.com/y2mPCTqUGupi9PmRIiBac5mLVXdoVOgPlI_krirA-vdO9wA_mXvuUlGezK7g773e-GRvYJhCoGNccrr-IhhBAjaiWrBY3h1V5d5sQU6PHczpsk/cr.vbs?download&psid=1) тільки вона змінюється то якщо не працюватиме скажи.

[Iska]

Це повний код »
Не полный.

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

я українець »
А я — нет. И язык конференции — русский (http://forum.oszone.net/rules.html#2.3). Будете продолжать пытать украинским — я буду Вас пытать белорусским. Или, например, урду. Или суахили.

та до чого тут та ссилка Що »
Чтобы можно было воспроизвести Вашу ошибку. Именно для этого нужна конкретизация ссылки, на которой Вы получили указанную ошибку. Ибо у меня — работает:
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

[and331]

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

[Iska]

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

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

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