dosya = "asdasd.zip" ' Dosya adı
dosyaci = "http://www.google.com/asdasdcxsdf.zip" ' dosya yolu
dosyam = "dosyami/"& dosya ' dosya nın upload edileceği klasor. &dosya dosya adını tanımlıyor.

Dim XmlHttp
Dim BinaryStrea
Dim dosyalar

Set XmlHttp = server.CreateObject("MSXML2.ServerXMLHTTP")

XmlHttp.Open "GET", dosyaci, False
XmlHttp.send
dosyalar = XmlHttp.ResponseBody
Set XmlHttp = Nothing
Set BinaryStrea = server.CreateObject("ADODB.Stream")
BinaryStrea.Type = 1 'Binarydata için 1
BinaryStrea.Open
BinaryStrea.Write dosyalar
BinaryStrea.SaveToFile server.MapPath(dosyam), 2 '< üstüne yazmak için 2
Set BinaryStrea = Nothing