[VB6] FTP Upload Source

[ghosty]

Hier habt ihr noch einen Source um eine Datei auf einen FTP up zu loaden.

Als erstes müsst ihr bei Komponenten das anklicken: Microsoft Internet Transfer Control 6.0

Dann zieht ihr das neue Symbol auf die Form.

Dann gebt ihr einfach das in einen Button ein.

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "Euer Server"
.UserName = "Euer Username"
.Password = "Euer Passwort"

.Execute , "Put " & "Pfad und Datei die geuploadet werden soll" & " " & "Wie die Datei auf dem Server heißen soll"
End With