FTP Up- Download mit Bestätigung

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Apfel.

    FTP Up- Download mit Bestätigung

    Hallo Leute,

    mal eine kleine Frage. Ich möchte per VB 2005 über FTP viele Dateien hoch- bzw. runterladen. Im Internet habe ich folgenden sehr leicht verständlichen Beispielcode gefunden:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. ' lokales Verzeichnis, in dem sich die Datei befindet,
    4. ' die hochgeladen werden soll
    5. Dim sLocalPath As String = "c:\ordner\"
    6. Dim sLocalFile As String = "MeineDatei.mdb"
    8. ' FTP-Server
    9. Dim sFTPHost As String = "ftp://meine-domain.de/"
    11. ' Benutzername und Kennwort für den Server-Zugriff
    12. Dim sUserName As String = "MeinBenutzername"
    13. Dim sPassword As String = "MeinPasswort"
    15. ' Datei wie UploadFile-Methode hochladen
    16. My.Computer.Network.UploadFile(sLocalPath & sLocalFile, _
    17. sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek & "_" & sLocalFile, _
    18. sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)
    19. End Sub


    Die Frage sich mir stellt ist, wie man eine Rückmeldung bekommt, ob die Datei erfolgreich übertragen wurde oder nicht. Oder muss dafür der Up- Download anders implementiert werden. Viellicht mit VB 2008?

    Gruß,
    rodgerwilco

    der code ist zwar leicht, jedoch wenn Fehler auftreten, startet das Debugging. deswegen benutze lieber diesen^^:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. ' lokales Verzeichnis, in dem sich die Datei befindet,
    3. ' die hochgeladen werden soll
    4. Dim sLocalPath As String = "c:\ordner\"
    5. Dim sLocalFile As String = "MeineDatei.mdb"
    7. ' FTP-Server
    8. Dim sFTPHost As String = "ftp://meine-domain.de/"
    10. ' Benutzername und Kennwort für den Server-Zugriff
    11. Dim sUserName As String = "MeinBenutzername"
    12. Dim sPassword As String = "MeinPasswort"
    14. Try 'Versuche die Angegebene Datei Hochzuladen
    15. My.Computer.Network.UploadFile(sLocalPath & sLocalFile, _
    16. sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek & "_" & sLocalFile, _
    17. sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)
    18. 'Zeigt eine Meldung das die datei erfolgreich Hochgeladen wurde:
    19. MsgBox("Die Datei wurde Erfolgreich Hochgeladen", MsgBoxStyle.Information, "Hochgeladen...")
    21. Catch ex As Exception 'Falls ein Fehler auftritt mache Folgendes:
    22. 'Zeigt eine fehlermeldung mit dem angegebenen Text
    23. MsgBox("Es ist ein Fehler aufgetreten. Bitte versuche es erneut!", MsgBoxStyle.Exclamation, "Fehler!")
    24. End Try
    26. End Sub


    lg.

    Hi,

    mit dem Catch hast du die Möglichkeit, dass der Upload nicht funktioniert hat, bereits behandelt.

    VB.NET-Quellcode

    1. Catch ex As Exception
    2. MessageBox.Show(ex.Message)
    3. End Try


    Damit zeigt er eine Meldung an, die den Fehler enthält + die nachricht, dass da was nicht passt. Meldungen sind z.B. (Quelldatei existiert nicht, Upload nicht möglich, da der Benutzername falsch ist usw.)
    Und zu 2.:
    Machs doch so.

    VB.NET-Quellcode

    1. Dim fehler As String
    2. TryMy.Computer.Network.UploadFile("File", "Path")Catch ex As Exception
    3. fehler = ex.Message
    4. MessageBox.Show(ex.Message)
    5. End Try
    6. If fehler = "" ThenMessageBox.Show("ERFOLGREICH!")
    7. End If

Facebook
Telefonspende