Re: Want to Save Files via the browser - in vb script
- From: noone@xxxxxxx (Reventlov)
- Date: Sun, 01 Feb 2009 16:23:25 GMT
Il giorno Wed, 28 Jan 2009 18:26:58 -0500, "Travis McGee" <travisGatesMcGee@xxxxxxxxxxx>
ha scritto:
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)
--
.
- Prev by Date: Re: How to enumerate folder owners
- Next by Date: Re: Script for Windows registry
- Previous by thread: Re: How to enumerate folder owners
- Next by thread: Re: Regular Expression Help Required
- Index(es):
Relevant Pages
|
