Hier nochmal eine Version der Vollständigkeit halber
Delphi-Quellcode:
procedure AlleDateienImVerz(pfad:string; gefunden:TStrings; HS:String ;MitUnterVerz:Boolean);
//gibt liste aller dateien im verz zurück, wahlweise mit allen in allen unterverz.
var
sr: TWin32FindData;
h: THandle;
begin
if ansilastchar(pfad)<>'\' then pfad:=pfad+'\';
h:=FindFirstFile(PChar(pfad + HS + '*.*'),sr);
if not (h=INVALID_HANDLE_VALUE) then
repeat
if DirectoryExists(pfad+sr.cFileName) then
begin
if not (sr.cFileName[0]='.') then if MitUnterVerz then AlleDateienImVerz(pfad+sr.cFileName,gefunden,HS ,True);
end
else
begin
gefunden.add(pfad+sr.cFileName);
end;
until Findnextfile(h,sr)=false;
windows.FindClose(h);
end;
AlleDateienImVerz(pfad:string; gefunden:TStrings; HS:String ;MitUnterVerz:Boolean);
pfad :
der Pfad der durchsucht werden soll
gefunden:
tStringlist in die alle Dateinamen gespeichert werden
HS:
war ne kleine abwandlung dient um zu filtern wenn man z.b. nur Dateinen haben möchte die mit XX beginnen. Kann ansonsten einfach mit nem leeren String aufgerufen werden.
MitUnterVerz
True oder false halt wie du es brauchst