Einfach 'ne Procedur erstellen, der du das Verzeichnis und die Endung übergibst.
Und innerhalb dieser eine Abfrage machen und wenn Unterverzeichnisse vorhanden sind, dann die Prozedur sich selber mit Verzeichnis+'\'+Unterverzeichnisname und Endung aufrufen lassen.
Beispiel:
Code:
procedure Suche(V, E: String);
begin
if (letztes Zeichen in V) <> '\' then V := V + '\'
DateienSuchen(V + '*' + E)
repeat
{Dateiname der Liste hinzufügen}
until (nächsteDateiSuchen)
DateienSuchen(V + '*.*')
repeat
if (gefundenes = Verzeichnis) then
Suche(V + Verzeichnisname + '\', E);
until (nächsteDateiSuchen)
end
Suche('C:\Verz\', '.ppt');