Hallo,
ich hatte die unten stehende Function ja bereits vor einiger Zeit hier gepostet. Wie bekomme ich es damit wohl hin, eine zip-Datei per http downzuloaden und auf der Platte zu speichern? So wie es hier ist, bekomme ich ja nur einen String zurück.
Mit responseBody komme ich auch irgendwie nicht weiter. Das Array wird dann anscheinend zu groß.
Help!?
Function HTTPGet(strURL) As String
Dim strReturn ' As String
Dim objHTTP
' As MSXML.XMLHTTPRequest
If Len(strURL) Then<br>
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