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)
                ' etwas mit streamreader machen...
                reader2.Close()
            End If
        Next

________
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