Hi,

stelle folgendermassen eine FTP-Verbindung her:

With Inet1

.URL = "ftp://url"

.UserName = "username"

.Password = "passw"

.AccessType = icDirect

.Execute , "CD Ordner"

.Execute , "SEND C:\test.txt test.txt"

End With

MsgBox ("Fertig")

Es klappt aber nicht, hat einer einen Tipp?

Danke

An alle die es interessiert hier die Lösung:

 

Private Sub Command1_Click()

With Inet1

.URL = "ftp://url"

.UserName = "username"

.Password = "passw"

.AccessType = icDirect

.Execute , "CD Ordner"

Do While Inet1.StillExecuting: DoEvents: Loop

.Execute , "SEND C:\test.txt test.txt"

Do While Inet1.StillExecuting: DoEvents: Loop

End With

MsgBox ("Fertig")

End Sub


'Fehlerbehandlungroutine

Private Sub Inet1_StateChanged(ByVal State As Integer)

    Select Case State

        Case icError

            MsgBox Inet1.ResponseCode

            MsgBox Inet1.ResponseInfo

    End Select

End Sub