Get zip files via HTTP

Hello,

with this code i can get a string via http. But how can i get a zip-file via http and save it to disk? With a notesstream? Or with responseBody? please help!?

Function HTTPGet(strURL) As String

Dim strReturn ’ As String

Dim objHTTP

’ As MSXML.XMLHTTPRequest

If Len(strURL) Then

Set objHTTP = CreateObject(“MSXML2.ServerXMLHTTP”)

objHTTP.open “GET”, strURL,False

objHTTP.send 'Get it.

strReturn =objHTTP.responseText

End If

Set objHTTP = Nothing

'Print strURL

HTTPGet = strReturn

End Function

Subject: get zip files via HTTP

I have done something like this before using WGET. You can download that program and Shell it, passing it the URL location of the zip file.

Subject: get zip files via HTTP

if you go the WGET route, make sure you get the windows version. you should be able to find a recent version if you google ‘wget for windows’

Subject: RE: get zip files via HTTP

Thanks, it works great!