Inhalt eines Ordners auslesen

[crasher1985]

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