"paul fpvt2" <an*******@disc ussions.microso ft.com> wrote in message
news:02******** *************** *****@phx.gbl.. .
How can I copy an html file to a local drive ?
For example: I would like to copy
www.mywebsite.mypage.htm to
c:\inetput\wwwr oot\mydir\mypag e.htm, can I do that ?
Thanks.
Try this.
Option Explicit
'*
Const cURL = "www.mywebsite. mypage.htm"
Const cOUT = "c:\inetput\www root\mydir\mypa ge.htm"
'*
WScript.Echo "Success? " & Fetch(cURL,cOUT )
Function Fetch(xURL,xOUT )
On Error Resume Next
Fetch = False
Err.Clear
Dim objXML
Set objXML = CreateObject("M icrosoft.XMLHTT P")
objXML.Open "GET",xURL,Fals e
objXML.Send
Dim strXML
strXML = objXML.Response Body
If Err.Number <> 0 _
Or objXML.Status <> 200 Then
Exit Function
End If
Set objXML = Nothing
Dim objADO
Set objADO = CreateObject("A DODB.Stream")
objADO.Type = 1
objADO.Open
objADO.Write strXML
objADO.SaveToFi le xOUT,2
Set objADO = Nothing
Fetch = Err.Number = 0
End Function
It will work with binary files (e.g. images) as well.