Einfacher Downloader

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Graphicscore.

    Einfacher Downloader

    hi,

    ich habe einen kleinen downloader zusammengebastelt, er ist soweit auch schon fertig. das problem ist nur das er mir die datei nicht downloaded.
    ich weiss nicht warum

    hier der code:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Public Class Form1
    4. Private WithEvents downloader As New WebClient
    6. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    10. End Sub
    12. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    13. Dim speichern = New FolderBrowserDialog
    14. speichern.showDialog()
    15. Me.TextBox2.Text = speichern.selectedpath
    17. End Sub
    19. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    20. downloader = New WebClient
    21. downloader.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)
    22. Me.Button2.Enabled = False
    24. End Sub
    26. Private Sub downloader_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
    27. MsgBox("Download war Erfolgreich!", MsgBoxStyle.Information, "Fertig")
    28. Me.ProgressBar1.Value = 0
    29. Me.Label3.Text = "0 von 0 Bytes"
    30. Me.Label4.Text = "0%"
    31. Me.Button2.Enabled = True
    32. End Sub
    34. Private Sub downloader_DownloadProgressChanged(sender As Object, e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
    35. Me.ProgressBar1.Value = e.ProgressPercentage
    36. Me.Label3.Text = e.BytesReceived & "von" & e.TotalBytesToReceive & "Bytes"
    37. Me.Label4.Text = e.ProgressPercentage & "%"
    39. End Sub
    40. End Class


    danke für jede hilfe die ich bekomme

    mfg chris :)

    Ich denke du musst den Filename an TextBox2.Text anhängen.

    Grüße
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Hier ist die Lösung deines Problemes

    Wie du hier schon geschrieben hast

    VB.NET-Quellcode

    1. downloader.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)

    soll er dort die Datei herunterladen aber du hast keinen dateinamen angegeben also musst du es in

    VB.NET-Quellcode

    1. downloader.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text & "\DATEINAME.DATEIENDUNG)

    bzw.

    VB.NET-Quellcode

    1. downloader.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text & "DATEINAME.DATEIENDUNG)

    umändern.

    Gruß Graphic

Facebook
Telefonspende