Imports System.Net
 
Public Class clsDownload
 
    Dim main As New main
 
    Dim resumen As Boolean
    Dim url As String
    Dim filepath As String
    Dim webreq As HttpWebRequest
    Dim webresp As HttpWebResponse
    Dim bReader As IO.BinaryReader
    Dim bWriter As IO.BinaryWriter
    Dim stream As IO.FileStream
    Dim buffer() As Byte = New Byte(1024) {}
    Dim bytesRead As Integer
 
    Public Sub start()
        Dim threadz As New System.Threading.Thread(AddressOf dl)
        threadz.Start()
    End Sub
 
    Sub dl()
 
        Do
            url = main.rechts.Items.Item(main.activepart)
            Dim dateiname() As String = url.Split("/")
            Dim nurdatei As String = dateiname(dateiname.GetUpperBound(0))
 
            If IO.File.Exists(main.Ordner & "\" & nurdatei) Then
                filepath = main.Ordner & "\" & nurdatei
                resumen = True
            Else
                filepath = main.Ordner & "\" & nurdatei
                resumen = False
            End If
 
            ' Fortschritt zunächst auf 0% setzen
            main.pb.Value = 0
 
            If resumen = True Then
                bytesRead = FileLen(filepath)
                webreq.AddRange(CInt(bytesRead))
            End If
 
            Try
                ' Datei-Download via HTTP "anfordern"
                webreq = HttpWebRequest.Create(url)
                webresp = webreq.GetResponse
 
                ' Download-Größe
                main.pb.Maximum = webresp.ContentLength
 
                ' lokale Datei öffnen
                stream = New IO.FileStream(filepath, IO.FileMode.Create)
                bReader = New IO.BinaryReader(webresp.GetResponseStream)
                bWriter = New IO.BinaryWriter(stream)
 
                ' Datei blockweise downloaden und lokal speichern
                Do
                    bytesRead = bReader.Read(buffer, 0, 1024)
                    bWriter.Write(buffer, 0, bytesRead)
                    main.pb.Value += bytesRead
                    main.pb.Update()
                Loop Until bytesRead = 0
 
                ' alle Dateien schließen
                bWriter.Close()
                bReader.Close()
                stream.Close()
 
            Catch ex As Exception
                ' Bei Fehler...
                MessageBox.Show("Fehler: " & vbCrLf & ex.Message, _
                  "Fehler", MessageBoxButtons.OK, _
                  MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
            End Try
 
            main.activepart += 1
        Loop Until main.activepart = main.rechts.Items.Count()
 
    End Sub
End Class

Eine nicht behandelte Ausnahme des Typs 'System.StackOverflowException' ist in _
  mango Client.exe aufgetreten.

Mit freundlichen Gr??en

Peter