Function fHTTPDownload(strTarget As String, strSaveAs As String, _
Optional strUN As String, Optional strPW As String) As Boolean
On Error GoTo errHere
Dim xmlHTTP As Object
Dim strRespText As String
fHTTPDownload = True
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
With xmlHTTP
.Open "GET", strTarget, False, strUN, strPW
.setRequestHeader "cache-control", "no-cache,must revalidate"
.Send
SaveFile strSaveAs, .responseBody
End With
exitHere:
Set xmlHTTP = Nothing
Exit Function
errHere:
fHTTPDownload = False
'Your error handling here
Resume exitHere
End Function
Private Sub SaveFile(strFilePath, bytArray)
On Error GoTo HandleErr
Dim objStream As Object 'New ADODB.Stream
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 1 'adTypeBinary
.Open
.Write bytArray
.SaveToFile strFilePath, 2 'adSaveCreateOverWrite
End With
exitHere:
Exit Sub
HandleErr:
'Error Message goes here
Resume exitHere
End Sub