Dim OrdnerName As String = Pfad + "\"             ' Pfad zum Ordner 
Dim Dateiliste() As String
 
 
Dateiliste = Directory.GetFiles(OrdnerName, "*." + Dateityp) ' Welcher Typ soll 
' eingelesen werden
For Each Datei As String In Dateiliste                                                        
Dim afile As FileIO.TextFieldParser           ' Datei die aufgeteilt werden soll
afile = New FileIO.TextFieldParser(Datei, System.Text.Encoding.GetEncoding( _
  1252))