Imports System.Net
 
Public Class Form1
    ' WebClient für Datei-Download
    Private WithEvents httpClient As WebClient
 
    ' Datei-Download starten
    Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
 
        ' Fortschrittsanzeige zurücksetzen    
        lblProgress.Text = "0 KB"
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 100
 
        ' Neue Instanz der WebClient-Klasse erstellen
        httpClient = New WebClient
 
        ' URL der Datei (hier die vollständige URL eintragen)
        Dim sURL As String = "http://xxx.xxx.xxx.xxx/Ordner/textdatei.txt"
 
        ' Ziel-Datei (lokal)
        Dim sLocalFile As String = "c:\Ordner\textdatei.txt"
 
        Button1.Enabled = False
        Try
            ' Download asynchros starten, damit wir den Fortschritt 
            ' anzeigen können
            httpClient.DownloadFileAsync(New Uri(sURL), sLocalFile)
            lblProgress.Visible = True
            ProgressBar1.Visible = True
 
        Catch ex As Exception
            MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
            Button1.Enabled = True
        End Try
    End Sub
 
    ' Download beendet
    Private Sub httpClient_DownloadFileCompleted(ByVal sender As Object, _
      ByVal e As System.ComponentModel.AsyncCompletedEventArgs) _
      Handles httpClient.DownloadFileCompleted
 
        MsgBox("Download erfolgreich durchgeführt", MsgBoxStyle.Information)
        ProgressBar1.Visible = False
        lblProgress.Visible = False
        Button1.Enabled = True
    End Sub
 
    ' Fortschrittsanzeige
    Private Sub httpClient_DownloadProgressChanged(ByVal sender As Object, _
      ByVal e As System.Net.DownloadProgressChangedEventArgs) _
      Handles httpClient.DownloadProgressChanged
 
        With ProgressBar1
            ' prozentuale Anzeige des Fortschritts in der ProgressBar
            .Value = e.ProgressPercentage
 
            ' KB-Fortschrittanzeige im Label
            Dim TotalBytes As Long = e.TotalBytesToReceive / 1024
            Dim Bytes As Long = e.BytesReceived / 1024
            If TotalBytes < 1 Then TotalBytes = 1
            If Bytes < 1 Then Bytes = 1
 
            lblProgress.Text = Bytes.ToString & " KB von " & _
              TotalBytes.ToString & " KB"
        End With
    End Sub
 
End Class

10000720016	15	2009/10/13	05:32:31
10000720012	10	2009/10/13	05:32:35
10000720015	22	2009/10/13	05:32:40
10000720003	45	2009/10/13	05:32:46
10000720005	55	2009/10/13	05:32:50
10000710024	15	2009/10/13	05:32:57
10000720000	33	2009/10/13	05:33:03
10005020002	10	2009/10/13	05:47:37
10005010024	18	2009/10/13	05:47:44
10005020000	15	2009/10/13	05:47:51

___________________________________________________________________________________
Erfolg besteht darin, dass man genau die F?higkeiten hat, die im Moment gefragt sind...
Doch: Bei den meisten Erfolgsmenschen ist der Erfolg gr??er als die Menschlichkei