FindFirstFile: Mit Maske in Unterverzeichnissen suchen?

[Sir Rufo]

Meistens gibt es immer mindestens drei Wege
(himi hatte drei Wege beschrieben, und das hier ist der 2. Weg, den er vorgeschlagen hatte )

Hier der dritte Weg:

Delphi-Quellcode:

procedure FindFiles( const Path, Filter : string; const Results : TStrings; Recurse : Boolean = False );
begin
  // Wir suchen mal nach den Dateien wie gewohnt mit FindFirst/FindNext/FindClose
  ...
  // ok, alle gefundenen Dateien sollten jetzt in Results liegen

  // Sollen wir die Verzeichnisse auch noch durchsuchen?
  if Recurse then
  begin
    // Jetzt suchen wir ausschließlich nach Verzeichnissen
    if FindFirst( Path, ... ) = 0 then
    try
      repeat
        // Rekursiver Aufruf dieser procedure
        FindFiles( IncludeTrailingPathDelimiter( Path ) + SearchRec.Name, Filter, Results, Recurse );
      until FindNext( SearchRec ) <> 0;
    finally
      FindClose( SearchRec );
    end;
  end;
end;

[Dawn87]

Hallo,

Danke für die Antworten. Ich denke das bringt mich weiter.

grüße
Stefan

[jaenicke]

Hier findest du einen Quelltext von mir, der auch mehrere Masken und Ausschlussmasken usw. unterstützt:
http://www.delphi-library.de/viewtopic.php?p=654795
Am Ende findest du auch eine Liste weiterer ähnlicher Quelltexte. Da sollte etwas Passendes dabei sein.