Dim srReader As StreamReader
        Dim bla As String
        Dim Einzelteile() As String
        Dim X As Integer = ListView.Items.Count
 
        Try
            srReader = New StreamReader(Application.StartupPath & "\test.txt")
            Do Until srReader.EndOfStream               ' Bis Dateiende erreicht
                bla = srReader.ReadLine                 ' Eine Zeile lesen
                Einzelteile = bla.Split(";")
 
                ' In Einzelteile zerlegen
                ListView.Items.Add(Einzelteile(0))
                ListView.Items(X).SubItems.Add(Einzelteile(1))
                ListView.Items(X).SubItems.Add(Einzelteile(2))
                X = X + 1
            Loop
            srReader.Close()
            srReader.Dispose()
        Catch ex As Exception
 
            MessageBox.Show(ex.Message)
        Finally
            ListView.OwnerDraw = False
            ListView.View = View.Details
        End Try

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln