Hi!



I need a help!!



How to download files in DTS package?



Tanks



Joao

Option Explicit

Function Main()

Dim sUrl
Dim xmlHttp
Dim response

sUrl = "http://www.website.com/file.dat"

Set xmlhttp = CreateObject("MSXML4.ServerXMLHTTP")
xmlhttp.Open "GET", sUrl, False
xmlhttp.Send
response = xmlHttp.ResponseBody
Set xmlHttp = Nothing


Dim oADOStream
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Type = 1 '(Binary)
oADOStream.Mode = 3 '(read / write)
oADOStream.Open
oADOStream.Write response
oADOStream.SaveToFile "C:\Test.dat", 2
oADOStream.Close
Set oADOStream = Nothing

Main = DTSTaskExecResult_Success
End Function


--
Darren Green
http://www.sqldts.com
http://www.sqlis.com

"Joao Mossmann" <mossmann (AT) feevale (DOT) br> wrote