Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Загрузка файлу через vbs (http://forum.oszone.net/showthread.php?t=266463)

and331 19-08-2013 11:33 2203980
Загрузка файлу через vbs
 
Є скипт на 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 19-08-2013 11:54 2203993
and331, выкарыстоўвайце наступную методыку: adodb.stream savetofile - Пошук у Google → SaveToFile Method → SaveOptionsEnum.

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

and331 19-08-2013 12:57 2204019
Iska, не працює, помилка, відсутні дані потрібні для виконання цієї операції.

Iska 19-08-2013 13:08 2204031
and331, прывядзіце поўны код, уключаючы спасылку «"Що"».

and331 19-08-2013 15:31 2204101
Це повний код
Це що білоруська мова, я українець, та до чого тут та ссилка Що
Ось тільки вона змінюється то якщо не працюватиме скажи.

Iska 19-08-2013 18:40 2204216
Цитата:
Цитата 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

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

Iska 19-08-2013 20:59 2204277
Цитата:
Цитата and331
Я так и понял что белорусский язык в ответ на украинский, »
Угу ;).

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

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


Время: 09:42.

Время: 09:42.
© OSzone.net 2001-