Copying Any Filles From http:// with VBA

[larryjr]

I finally got the conclusion to this subject and
here is the sample code.
Please note that your PC needs MDAC before you run this.
You will get it from

http://www.microsoft.com/downloads/release.asp?ReleaseID=30894

<SCRIPT LANGUAGE = &quot;VBScript>
' ********************************************************
Const adTypeBinary = 1
Const adSaveCreateOverwrite = 2
Const adModeReadWrite = 3

set myXML = WScript.CreateObject(&quot;Microsoft.XMLHTTP&quot
sDest = &quot;C:\MYDOCU~1\tetscopy.gif&quot;
sSource = &quot;

http://www.tek-tips.com/img/logo.gif&quot;

' or If you like to copy a text file
' sSource =&quot;

http://qwww.tek-tips.com/jsource.js&quot;

' and sDest = &quot;C:\MYDOCU~1\testcopy.js&quot;
myXML.open &quot;GET&quot;, Trim(&quot; &quot; & sSource & &quot; &quot, False
myXML.send
If (myXML.status = 200) Then
Set stream = WScript.CreateObject(&quot;adodb.stream&quot
stream.type = adTypeBinary
stream.mode = adModeReadWrite
stream.open
stream.write myXML.responseBody
stream.savetofile sDest, adSaveCreateOverwrite
stream.close
Set stream = Nothing
Else
' You can write any for waiting or cancelling to DL.
End If
Set myXML = Nothing
' ***************************************************
</SCRIPT>

Enjoy this for collection any files you like from web.