Dateien Suchen?

[City Light]

Datei suchen (mit Unterverzeichnissen)

Delphi-Quellcode:

{
Diese Prozedur braucht zur Ausgabe eine Listbox
(kann man auch ganz einfach in eine Stringlist ausgeben)
}

procedure FileSearch(const PathName, FileName : string; const InDir : boolean); // InDir gibt an ob Unterverzeichnisse mit durchsucht werden sollen
var
Rec : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
ListBox1.Items.Add(Path + Rec.Name); // Listbox1 ist die Ausgabebox
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
If not InDir then Exit;
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if (Rec.Attr in [faDirectory]) and (Rec.Name<>'.') and (Rec.Name<>'..') then
FileSearch(Path + Rec.Name, FileName, True);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
end;