Nach Dateien suchen

[DGL-luke]

ok... mach ich...

EDIT: hast recht... waren einige unangenehme sachen drin...

Delphi-Quellcode:

function TForm2.SearchMask(Root: string; Mask: string; Recursively: Boolean = false): TStrings;
var SRec: TSearchRec;
    FindPath: string;
    Temp: TStrings;
begin
  Result := TStringList.Create;
  Root := IncludeTrailingPathDelimiter(Root); // abschließenden Backslash hinzufügen
  FindPath := Root + Mask;
  FindFirst(FindPath, faDirectory, SRec); //Suche initialisieren
  repeat
    if (SRec.Attr and faDirectory <> 0) and (SRec.Name <> '.') and (SRec.Name <> '..') and Recursively then
      begin
        Application.ProcessMessages;
        Temp := SearchMask(Root + SRec.Name,Mask,true);
        Result.AddStrings(Temp); //rekursieren
        Temp.Free;
      end
    else
      Result.Add(Root + SRec.Name); //Kompletten Dateipfad zum Ergebnis hinzufügen
  until FindNext(SRec) <> 0; //FindNext gibt 0 zurück wenn es keinen Fehler gibt
  FindClose(SRec); //Ende der Suche
end;

dazu hätt ich jetzt aber selber ne Frage:

Kann das sein, dass der die Verzeichnisse auch nur rausgibt, wenn sie mit der Maske übereinstimmen?