Hallo
Ich hab mal wieder ein Problem ich habe eine Upload Funktion doch leider Funtionirt die nur bei mir erstellt hier mal der Code:
Bei mir klappt der Upload Perfect bei anderen kommt nur die MsgBox "Upload erfolgreich" und es passirt nix hat villeicht jemand von euch eine Ahnung woran das liegen könnte?
Ich hab mal wieder ein Problem ich habe eine Upload Funktion doch leider Funtionirt die nur bei mir erstellt hier mal der Code:
Visual Basic-Quellcode
- Private Sub UPLOAD_1()
- Dim sLocalFile As String
- Dim sRemoteFile As String
- bError = False
- With Inet1
- .AccessType = icUseDefault
- .Protocol = icFTP
- .RemotePort = 21
- .URL = "ftp.xxxxxx.yy.xxxxx.de"
- .UserName = "xxxxxxx"
- .Password = "yyyyyyyyy"
- sLocalFile = App.Path & "\data.txt"
- MsgBox sLocalFile
- sRemoteFile = "data.txt"
- ' Upload ausführen
- .Execute , "PUT " & sLocalFile & " " & sRemoteFile
- Do While .StillExecuting And Not bError
- DoEvents
- Loop
- If Not bError Then
- MsgBox "Upload erfolgreich"
- Else
- MsgBox "Fehler beim Upload!" & vbCrLf & _
- "ResponseCode: " & .ResponseCode & vbCrLf & _
- "ResponseInfo: " & .ResponseInfo
- End If
- End With
- End Sub
Bei mir klappt der Upload Perfect bei anderen kommt nur die MsgBox "Upload erfolgreich" und es passirt nix hat villeicht jemand von euch eine Ahnung woran das liegen könnte?