Hiermal eine elegante Implementation einer rekursiven Datei- und Ordner-Suche:


Aufruf-Beispiel (Form mit 2 Listboxen):



Erläuterungen

• die Methode CollectFilesAndFolders() nimmt als root nicht nur ein DirectoryInfo, sondern gleich viele - kann also mehrere unzusammenhängende Ordner in einem Aufwasch durchsuchen. Will man nur einen Ordner durchsuchen, gibt man ihr halt eine Auflistung mit nur einem DirectoryInfo - etwa ein Array zu deklarieren erfordert ja nur 2 zusätzliche Zeichen {}:

  VB.NET-Quellcode

  1. Dim rootDirs = {New DirectoryInfo(rootPath)}
  Das ist nur minimal aufwändiger, hält aber o.g. Option offen.
  
  
• Die Methode legt sich nicht auf bestimmte Auflistungen fest, sondern arbeitet auf den allgemeinst-möglichen Interfaces (IEnumerable(Of T), ICollection(Of T)). Dadurch kann man ihr als rootDirs Arrays, Lists, BindingLists, Queues, Stacks - egal was geben - es muß nur IEnumerable(Of DirectoryInfo) implementieren
  Auch die Collectoren sind flexibel - es müssen nur Auflistungen sein, die über eine .Add-Methode verfügen - ICollections eben.
  
  
• 2010 - spezifisch ist die anonyme rekursive Methode, die in CollectFilesAndFolders() eingebaut ist.
  Vorteil dieser Technologie ist, dass die rekursive Methode Zugriff auf die lokalen Variablen der Umgebung hat, sodaß folderCollector und fileCollector ohne jeden Umstand befüllt werden können, ebenso wie auch der pattern zugreifbar ist - egal, in welcher Verschachtelungstiefe die Rekursion grade läuft.
  Wer schonmal eine Rekursion programmiert hat, kennt die Umständlichkeit, dass man entweder extra-Klassenvariablen einführen muß - und damit gegen das Kapselungs-Prinzip verstößt - oder man muß den Selbst-Aufruf sehr umständlich gestalten, nämlich folderCollector, fileCollector und pattern jedesmal als Parameter reinreichen, damit sie in der Rekursion verfügbar sind.
  Bei einer rekursiven anonymen Methode sind 2 Dinge zu beachten
  1. Option Infer failt, also die Signatur muß explizit deklariert sein (hier: Action(Of IEnumerable(Of DirectoryInfo))).
     Ansonsten meckert der Compiler, wenn die anonyme Methode sich selbst aufrufen will.
     
  2. Erst die rekursive anonyme Methode ausprogrammieren, danach(!) kann man sie auch aufrufen

Update, Erweiterung
Habe die Geschichte nunmehr in 3 verschiedenen Views implementiert

1. per DatagridView und EinzelblattView, mit einer ObjectBindingSource
   
2. Mit Listboxen sowohl für Directories als auch Files
   
3. mit Treeview mit Checkboxen für Directories
   

Das Bildchen zeigt einige angewählte Directories, und wie sie in einer Messagebox ausgegeben werden.


Wichtiger Hinweis
Die Solution muß zunächst mal kompiliert werden (Menü - Erstellen), bevor man das MainForm im Designer angugge kann. Denn auf dem MainForm sind UserControls plaziert, und der Form-Designer kann die nur anzeigen, wenn sie als dll vorliegen.

Nachtrag 11-2014
Hier eine geschwindigkeits-optimierte Variante (ca. 3 * schneller) von @simpleSoft - vielen Dank!

Die in der Überschrift gestellte Aufgabe wirft das Problem auf, dass eine Rekursion beliebig tief im Selbst-Aufruf verschachtelt sein kann.
Das bedeutet, bei einem Treffer kehrt der Return-Aufruf nicht zum eigentlichen Aufrufer zurück, sondern man gelangt nur eine Ebene höher.
Da es aber unwirtschaftlich wäre, die Suche nach dem Treffer noch fortzuführen, muss man etwas schaffen, dass sie auf allen Ebenen abgebrochen wird, nicht nur auf der Ebene, wo der Treffer auftrat.

Ja, grad für sowas ist lokale Rekursion besonders geeignet, denn man kann eine Ergebnis-Variable ausserhalb der Rekursion lagern, und die Funktion returnt (egal auf welcher Ebene), wann immer sie feststellt, dass in der Variablen was drinne ist:Code-Update in post#1, die Funktionalität findet sich auf uclDatagridView