Private Sub GetFilesAndFolders(ByVal rootPath As String)
        Dim folders As New List(Of DirectoryInfo)
        Dim files As New List(Of FileInfo)
 
 
        Dim rootDirs = {New DirectoryInfo(rootPath)}    'rootDirs enthält hier 
        ' nur 1 Directory
        CollectFilesAndFolders(rootDirs, folders, files, "Dateiname.exe")
        'Collect-Ergebnisse verwenden.
        lstDirectories.DataSource = folders
        lstFiles.DataSource = files
 
    End Sub
 
 
 
 
 
    Private Sub CollectFilesAndFolders(ByVal rootDirs As IEnumerable(Of _
      DirectoryInfo), _
      ByVal folderCollector As ICollection(Of DirectoryInfo), _
      ByVal fileCollector As ICollection(Of FileInfo), _
      Optional ByVal pattern As String = "*.*")
        'rekursive anonyme Methode
        Dim recurse As Action(Of IEnumerable(Of DirectoryInfo)) = _
           Sub(dirs As IEnumerable(Of DirectoryInfo))
               For Each dirinf In dirs
                   Dim files As IEnumerable(Of FileInfo)
 
                   Try
                       files = dirinf.EnumerateFiles(pattern)
 
 
 
                   Catch ex As UnauthorizedAccessException
                       'für manche Directories hat das Prog keine Rechte
                       Continue For
                   End Try
                   For Each fileInf In files
 
                       fileCollector.Add(fileInf)
                       Dim ersterTreffer As String = dirinf.FullName.ToString
 
AB HIER MÜSSTE ICH AUSSTEIGEN UND ERSTERTREFFER ZUM WEITERVERWENDEN ZUR _
  VERFÜGUNG STEHEN
 
 
                   Next
                   folderCollector.Add(dirinf)
                   'selbst-aufruf
                   recurse(dirinf.EnumerateDirectories)
 
               Next
           End Sub
        'anonyme Methode aufrufen
        recurse(rootDirs)
    End Sub
 
    Private Sub btFindFirst_Click(sender As System.Object, e As _
      System.EventArgs) Handles btFindFirst.Click
        GetFilesAndFolders("c:\Users\Holger\")
 
    End Sub