Download edip bir ftp ye upload

11-11-2008, 21:52:31

#1

~~flodby~~

Üyeliği durduruldu

Elimdeki linklerdeki dosyaları çektirip bir ftp ye upload ettireceğim küçük bir parça kod verebilirseniz yada bir örnek sevinirim tşkler.

11-11-2008, 23:48:08

iSo

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

buyur kardeş