Dim fbd As New FolderBrowserDialog
        fbd.ShowDialog()
        ziel = fbd.SelectedPath
 
        Dim a
        Dim anzahlrow = ar.Count() - 2
        For a = 0 To anzahlrow
            GlacialList1.Items(a).SubItems(2).Control = pb
 
            Dim source As String = ar(0) & GlacialList1.Items(a).Text
            Dim target As String = ziel & "\" & GlacialList1.Items(a).Text
            Dim webreq As HttpWebRequest
            Dim webResp As HttpWebResponse
            Dim bReader As BinaryReader
            Dim bWriter As BinaryWriter
            Dim outStream As FileStream
            Dim buffer() As Byte = New Byte(1024) {}
            Dim bytesRead As Integer
 
            webreq = HttpWebRequest.Create(source)
            webResp = webreq.GetResponse
            pb.Maximum = webResp.ContentLength
            outStream = New FileStream(target, FileMode.Create)
            bReader = New BinaryReader(webResp.GetResponseStream())
            bWriter = New BinaryWriter(outStream)
 
            Do
                bytesRead = bReader.Read(buffer, 0, 1024)
                GlacialList1.Items(a).SubItems(3).Text = CInt(pb.Value / 1000) _
                  & " kb von " & CInt(pb.Maximum / 1000) & " kb"
                bWriter.Write(buffer, 0, bytesRead)
                pb.Value += bytesRead
                pb.Update()
            Loop Until bytesRead = 0
            bReader.Close()
            bWriter.Close()
            outStream.Close()
            webResp.Close()
            pb.Value = 0
        Next