Sub Listfiles(ByVal Path As String)
        Dim dir As New IO.DirectoryInfo(Path)
        Dim files As New List(Of String)
        For Each f As IO.FileInfo In dir.GetFiles("*.xy", _
          IO.SearchOption.AllDirectories)'Durchsucht auch Unterverzeichnisse
            files.Add(f.FullName)
        Next
    End Sub
 
 For Each f As IO.FileInfo In dir.GetFiles("*.xy", _
   IO.SearchOption.TopDirectoryOnly) 'Durchsucht nur das angegebene Verzeichnis
            files.Add(f.FullName)
        Next