Ftp'ye Dosya Yollamak !!!

On Error Resume Next
Inet1.Cancel
DoEvents
Inet1.RequestTimeout = 25
Inet1.Protocol = icFTP
Inet1.URL = "ftp://FTP ADRESİNİZ.com/"
Inet1.UserName = "KULLANICI ADINIZ"
Inet1.Password = "SİFRELER"
Inet1.RemotePort = "21" 'bu değişmemesi lazım
While Inet1.StillExecuting
DoEvents
Wend
Inet1.Execute , "CD " & Chr(34) & "/" & Chr(34) ' / dizin adıdır
While Inet1.StillExecuting
DoEvents
Wend
Inet1.Execute , "PUT " & Chr(34) & "C:\gönderilecek dosya.txt" & Chr(34) & " " & Chr(34) & "dosyaının ftpdeki adı.txt" & Chr(34)
While Inet1.StillExecuting
DoEvents
Wend
Inet1.Execute , "CLOSE"
End
gonder.Enabled = False
Inet1.Cancel



Evet Yukarıdaki Kodu Sizin için Hazırladım (Bunun gibi kodlarla black-agenti yazdım )




Emeğe Saygı Lütfen !