Dim fls() As IO.FileInfo = New IO.DirectoryInfo(...).GetFiles("*.ta")
        For Each fs As IO.FileInfo In fls
            If fs.Name.Substring(2, 6) = ds Then
                Dim Reader2 As New IO.StreamReader(fs.FullName, _
                  System.Text.Encoding.Default)
                Dim line As String
 
                Dim strTeile() As String
                Dim intLetzte As Integer = 0
                Dim j As Integer = 0
 
                While Reader2.Peek() > 0
 
                    line = Reader2.ReadLine
                    If line = "" Then
 
                    End If
 
                    'Call backuptxt.write() 
 
                    s = line.Substring(0, 78)
                    writer.WriteLine(s)
 
                    dr = dt.NewRow()
                    dr(0) = line.Substring(0, 5)
                    dr(1) = line.Substring(6, 3)
                    dt.Rows.Add(dr)
 
                End While
 
                reader2.Close()  ' Fehlt! 
            End If  ' Fehlt!
        Next  'Fehlt!
 
        DataGrid1.DataSource = New DataView(dt)

                While Reader2.Peek() > 0
 
                    line = Reader2.ReadLine
                    If line <>  "" Then
                        'Call backuptxt.write() 
 
                        s = line.Substring(0, 78)
                        writer.WriteLine(s)
 
                        dr = dt.NewRow()
                        dr(0) = line.Substring(0, 5)
                        dr(1) = line.Substring(6, 3)
                        dt.Rows.Add(dr)
                    End If
                End While

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist