Gemme en fil fra en url

prøv med den her:
http://home.get2net.dk/sjh/eksperten/430574/Download.zip

eller søge her på eksperten:
http://www.eksperten.dk/kat/5?searchtype=txt&words=Download&method=and&sort=score&catid=5

har lavet det selv

ImageFile = "biled-"&year&"-"&month&"-"&day&".jpg"
DestFolder = "C:\"
URL = html

Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False
xml.Send

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

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

oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist

oStream.close

Set oStream = nothing
Set xml = Nothing