Dim files As ReadOnlyCollection(Of String)

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
 Dim wildcards(1) As String
        wildcards(0) = "*.txt"
        wildcards(1) = "*.exe"
 
        'Zähler, wird intern zur Ausgabe des Fortschritts in % benötigt.
        Dim IntCnt As Long = 0
 
        'Alle Ordner und Unterordner ermitteln
        Dim Directorys As ReadOnlyCollection(Of String)
        Directorys = My.Computer.FileSystem.GetDirectories(e.Argument, _
          FileIO.SearchOption.SearchAllSubDirectories, "*.*")
 
        'Alle Dateien im Root-Verzeichniss von e.Argument ermitteln, kann auch 
        ' mit *.jpg auf z.B. nur JPG´s eingeschränkt werden        
        Dim filesInRoot As ReadOnlyCollection(Of String)
        filesInRoot = My.Computer.FileSystem.GetFiles(e.Argument, _
          FileIO.SearchOption.SearchTopLevelOnly, wildcards)
 
        'Einzelne Dateine in den Ordnern ermitteln und bei jedem neuen Ordner 
        ' den Fortschritt ausgeben, hier kann ebenfalls *.* mit z.B. *.jpg 
        ' ersetzt werden
        For Each Directory As String In Directorys
            IntCnt += 1
            files = My.Computer.FileSystem.GetFiles(Directory, _
              FileIO.SearchOption.SearchTopLevelOnly, wildcards)
            BackgroundWorker1.ReportProgress(100 / Directorys.Count * IntCnt, _
            files)
        Next
End Sub

Danke, an ALLE !!