FTP-Upload unter Small Business Server 2011 (x64) schlägt fehl

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Botschafter Sarek.

    FTP-Upload unter Small Business Server 2011 (x64) schlägt fehl

    Hallo zusammen,

    weiß jemand, warum dieser Code, der auf einem Server 2003 (x32) problemlos lief, nun auf einem Small Business Server 2011 (x64) nicht mehr funktioniert?

    Visual Basic-Quellcode

    1. ' ========================================================
    2. ' ========================================================
    3. ' Hochladen einer Datei per FTP
    4. ' ========================================================
    5. ' ========================================================
    6. '
    7. ' Dateiname: Name der Datei (mit Pfad)
    8. ' Zielname: Name der Datei im Web (ohne Pfad)
    10. Private Sub hochladen(Dateiname, Zielname)
    12. Dim sLocalFile As String
    13. Dim sRemoteFile As String
    15. bError = False
    16. With Inet1
    17. .AccessType = icUseDefault
    19. ' Protokoll auf FTP setzen und Port 21 verwenden
    20. .Protocol = icFTP
    21. .RemotePort = 21
    23. ' Name des FTP-Servers, zu dem verbunden werden soll
    24. .URL = "Server-IP"
    26. ' Benutzer-Authentifizierung
    27. .UserName = "Benutzername"
    28. .Password = "Passwort"
    30. ' Datei, die hochgeladen werden soll (lokal)
    31. sLocalFile = Dateiname
    33. ' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
    34. sRemoteFile = Zielname
    36. ' Upload ausführen
    37. .Execute , "PUT " & sLocalFile & " " & sRemoteFile
    39. ' Warten, bis Vorgang abgeschlossen
    40. Do While .StillExecuting And Not bError
    41. DoEvents
    42. Loop
    44. If Not bError Then
    45. ' Upload war erfolgreich
    47. Else
    48. ' Fehler
    49. 'MsgBox "Fehler beim Upload!" & vbCrLf & _
    50. "ResponseCode: " & .ResponseCode & vbCrLf & _
    51. "ResponseInfo: " & .ResponseInfo
    52. End If
    53. End With
    55. End Sub


    Merkwürdigerweise scheint das Login zu klappen, denn die Datei ist auf dem FTP-Server hinterher auch präsent. Allerdings mit 0 Byte Größe :-(

    Hat jemand eine Idee? Die MSINET.OCX ist natürlich registriert ...


    Danke im Voraus,
    Sarek \\//_

Facebook
Telefonspende