FTP Downloader

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Nicolas.

    FTP Downloader

    Hallo zusammen,

    Ich habe eine Frage und zwar ich habe mir einen Downloader erstellt mit dem ich Daten aus meinem FTP Server Downloaden kann. Er sagt mir er hat die Datei heruntergeladen aber die Datei ist nicht auf meinem Desktop also hat er sie ja doch nicht runtergeladen.

    Was mache ich falsch?



    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    4. Public WithEvents downloader As WebClient
    6. Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles Downloader.DownloadFileCompleted
    7. 'nach fertigstellung wird eine Msg Box erscheinen und der Button1 kann wieder gedrückt werden
    8. Button1.Enabled = True
    9. MsgBox("File downloaded!")
    10. End Sub
    11. Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    12. 'folderbrowser wird eingesetzt:
    13. FolderBrowserDialog1.ShowDialog()
    14. TextBox1.Text = FolderBrowserDialog1.SelectedPath ' dateipfad + Name und Format der Datei
    15. End Sub
    17. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    18. downloader = New WebClient ' deklariert downloader als eine Webanwendung
    19. downloader.Credentials = New Net.NetworkCredential("downloader", "####") 'sendet logindaten an den FTP Server
    20. downloader.DownloadFileAsync(New Uri("ftp://*********/Mods/downloader"), TextBox1.Text) ' Kopiert die Datei von dem FTP Server in das angegeben Verzeichnis
    22. Button1.Enabled = False ' Button1 wird festgesetzt
    23. Label1.Show()
    24. Label3.Show()
    25. End Sub
    27. Private Sub FolderBrowserDialog1_HelpRequest(sender As System.Object, e As System.EventArgs) Handles FolderBrowserDialog1.HelpRequest
    29. End Sub
    30. Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
    34. Dim totalbytes As Long = e.TotalBytesToReceive / 1024
    35. Dim bytes As Long = e.BytesReceived / 1024 / 1024 ' Rechnen Bytes auf MegaBytes um (entfehre ein "/1024" wenn die Downloadmenge unter 10mb liegt)
    37. Label1.Text = "Bisher wurde gedownloadet: " & bytes.ToString & "MB" ' label1 ird durch text + bisherige Downloadmeng + text ersetzt
    41. Dim Prozentmaximum, Va, Vb, Prozent As Double
    42. Prozentmaximum = 100
    44. Va = bytes.ToString
    45. Vb = 6600000
    47. ProgressBar1.Maximum = Prozentmaximum
    48. Prozent = Va / Vb * 100 * 10 * 1024 ' rechnet % um
    51. If Prozent <= 100 Then
    52. ProgressBar1.Value = Prozent ' bringt progessbar zum laufen
    53. Label3.Text = Prozent & " %" ' bring label 3 zum einsatz
    56. End If
    57. End Sub
    58. End Class

    1) Brauchst du für den Download kein FTP sondern kannst über Http interagieren, zweitens:

    "ftp://*********/Mods/downloader" Willst du den ganzen Ordner downloaden, oder was ist downloader?
    Sicher das der Pfad in Textbox1 stimmt?