Windows Vista Forums
Vista Forums Home Join Vista Forums Windows 7 Forum Vista Tutorials Tags
Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks.

Go Back   Vista Forums > Misc Newsgroups > VB Script

Vista - Re: Want to Save Files via the browser - in vb script

Reply
 
Old 02-01-2009   #1 (permalink)
Reventlov


 
 

Re: Want to Save Files via the browser - in vb script

Il giorno Wed, 28 Jan 2009 18:26:58 -0500, "Travis McGee" <travisGatesMcGee@xxxxxx>
ha scritto:
Quote:

>Want to Save Files via the browser

Sub DownloadWithXMLHTTP (sSource,sDest)
'Download a file using activeX Object XMLHTTP
'and save to sDest using ADO Stream
set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
oHTTP.open "GET", sSource, False
oHTTP.send
set oStream = createobject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
oStream.type = adTypeBinary
oStream.open
oStream.write oHTTP.responseBody
oStream.savetofile sDest, adSaveCreateOverWrite
set oStream = nothing
set oHTTP = nothing
end sub

--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--

My System SpecsSystem Spec
Reply

Thread Tools


Similar Threads
Thread Forum
Save as dialog box browser buttons are frozen? General Discussion
Windows Script Host has no script engine for ".js" files Vista General
WMP 11 / Vista - Cannot launch files from browser (mpg, wmv, mp3.. Vista music pictures video
Navigation When Saving Files, and Opening mht files from Browser Vista file management
Importing bookmarks from AT&T Yahoo! Browser to save a marriage Vista mail


Vista Forums is an independent web site and has not been authorized,
sponsored, or otherwise approved by Microsoft Corporation.
"Windows Vista", the Start Orb, and related materials are trademarks of Microsoft Corp.
© Designer Media Ltd

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46