'Auslesen der txt's
             Dim dl As New IO.DirectoryInfo(Test()) 'Ordnerinformation aus 
             ' einem Pfad
             Dim fi() As IO.FileInfo
 
             fi = dl.GetFiles("*.txt")
                   For k As Integer = 0 To fi.Length - 1
 
                        Dim lines() As String = IO.File.ReadAllLines(fi( _
                          k).FullName)
 
                          For i As Integer = 0 To lines.Length - 1
                          ListBox3.Items.Add(lines(i))
                            Next
                        Next