Try this,
'************************************************* *
' Visual Basic ActiveX Script
'************************************************* *
Option Explicit
Function Main()
Dim mInternet, mFile, mFiletxt, fso, WebAddress
WebAddress = "http://www.microsoft.com"
Set mInternet= CreateObject("Microsoft.XMLHTTP" )
mInternet.open "GET" , WebAddress, false
mInternet.send
mFiletxt= mInternet.Responsetext
set mInternet = nothing
set fso = createObject("scripting.FilesystemObject")
set mfile = fso.createtextfile("C:\myfile.html")
mfile.write mfiletxt
mfile.close
set mfile = nothing
set fso = nothing
Main = DTSTaskExecResult_Success
End Function
"xgoulay (AT) gmail (DOT) com" wrote:
Quote:
I would like to download a file from an HTTP server. Is there a way
with DTS to download a file from a webserver as we can do it from an
FTP server using the FTP task provided? |