'Variablen deklarieren
        Dim i 'Zähler für For - Schleifen
        Dim c As New configManager(Application.StartupPath & "\SwissLine" & _
          "2004.exe.config") ' Konfigurationsdatei
        Dim ar As New System.Collections.ArrayList
        '##############################################################
 
        'Konfigurationsdatei wird versucht zu öffnen
        If Not c.Open() Then
            MsgBox("XMLNode 'AppSettings' nicht gefunden! Die App.Config" & _
              "überprüfen!")
            Exit Sub
        End If
        '##############################################################
 
        'index.dat Pfad wird hier aus dem Konfigurationsfile gelesen
        Dim updatepath As String = c.GetValue("updatepath").ToString
        Dim kdnr As String = c.GetValue("kdnr").ToString
        Dim filename As String = "index.dat"
        Dim filepath As String = updatepath & kdnr & "/" & "index.dat"
        '##############################################################
 
        'index.dat wird hier heruntergeladen und in einem tmp Ordner gespeichert
        Dim source As String = filepath
        Dim target As String = Application.StartupPath & "/tmp/" & filename
        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
        Dim x As String
        Try
 
            webreq = HttpWebRequest.Create(source)
            webResp = webreq.GetResponse
            outStream = New FileStream(target, FileMode.Create)
            bReader = New BinaryReader(webResp.GetResponseStream())
            bWriter = New BinaryWriter(outStream)
 
            Do
 
                bytesRead = bReader.Read(buffer, 0, 1024)
                bWriter.Write(buffer, 0, bytesRead)
 
            Loop Until bytesRead = 0
            bReader.Close()
            bWriter.Close()
            outStream.Close()
        Catch
            MsgBox("Die IndexListe kann auf dem Server nicht aufgefunden" & _
              "werden.", MsgBoxStyle.Exclamation)
        End Try
        '##############################################################
 
        'index.dat wird ausgelesen und in ein Array aufgeteilt
        Dim sr As IO.StreamReader = New IO.StreamReader(target)
        Dim line As String
        Dim filearray() As String
        Do
            line = sr.ReadLine()
            ar.Add(line)
            Application.DoEvents()
        Loop Until line Is Nothing
        ar.ToArray()
        For i = 0 To ar.Count() - 2
 
            GlacialList1.Items.Add(ar(i))
            'GlacialList1.Items(i).SubItems(1).Text = ar(0)
            GlacialList1.Items(i).SubItems(0).Text = ar(i)
            MsgBox(ar(i))
        Next
        sr.Close()

Swissline.exe;1.0;02.08.2004
Startup.exe;;02.08.2004

Do
            line = sr.ReadLine()
            ar.Add(line)
            Application.DoEvents()
        Loop Until line Is Nothing
        ar.ToArray()
        For i = 0 To ar.Count() - 2
 
            GlacialList1.Items.Add(ar(i))
            'GlacialList1.Items(i).SubItems(1).Text = ar(0)
            GlacialList1.Items(i).SubItems(0).Text = ar(i)
            MsgBox(ar(i))
        Next
        sr.Close()