Private Sub upload_Click()
With Inet1
. AccessType = icUseDefault
. Protocol = icFTP
. RemotePort = "21"
. URL = txtHost.Text
. UserName = txtUser.Text
. Password = txtPass.Text
. Execute , " PUT" & txtPfad.Text
End With
End Sub
Habe kleine Extras rausgelassen wiezumbeispiel das Label1.Caption und sowas halt ^^
Ehm vorher Browse ich natürlich och mit diesem Code:
Code:
ComDlg.Filter = "AlleDatein (*.*) | *.*"
If ComDlg.FileName = "" Then
txtPfad.Text = "Pfad zur Datei ..."
txtPfad.Enabled = False
Else
txtPfad.Text = ComDlg.FileName
End If
End Sub
Hoffe es kann mir einer sagen, warum der nix uploadet! Denke es liegt am execute ("txtPfad.Text"), das wird der Fehler denk ich mal sein ^^
Registrieren
Login
