Jeremy Simmons: The Blog

Option Explicit

Dim today
Dim yesterday
Dim strYesterday
nToday=Date()
nYesterday=DateAdd("d",-1,nToday)
sYesterday=CStr(FormatDateTime(nYesterday,2))

Dim sBackupFile=Replace(sYesterday, "/", "_")    
Dim sDestFolder="C:\"
Dim sURL="https://domain/share/" & sBackupFile

Dim sUser=""                                 
Dim sPass=""

Set oHttp = CreateObject("Microsoft.XMLHTTP")
oHttp.Open("GET", sURL, False, sUser, sPass)
oHttp.Send ""

set saveFile = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2

saveFile.type = adTypeBinary
saveFile.open
saveFile.write xml.responseBody

saveFile.savetofile sDestFolder & sBackupFile, adSaveCreateOverWrite

saveFile.close

set saveFile = nothing
Set oHttp = Nothing