Dateien Suchen?

[Gast]

HI!

Wie kann ich die Festplatte nach bestimmten Dateien durchsuchen?
Z.B.
.Txt

dann soll in einer Listbox der Prad + Dateiname stehen! Wenn es geht, nicht doppelt!!!!!!!!!!

bye!! :chat:

[sakura]

Schau mal in unsere CodeLibrary ;) Da gibt es folgenden Eintrag.

http://www.delphipraxis.net/viewtopic.php?t=2464

Nur dass mit den doppelten Files musst Du noch lösen. Woran willst Du doppelte Files erkennen?

...:cat:..

[f.r.e.s.h.d]

Ich habe einen Ordner in dem mehrere Ordner vorhanden sind, aber leider funktioniert der Quellcode(vom Link) nicht, so dass keine Dateien in den Unterordnern gefunden werden! Kann mir jemand dazu was sagen!???

[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;