alle dateien eines ordners auflisten

[yildi]

moin!

hat jemand eine fertige procedur, um einfach alle dateien eines angegeben ordners aufzulisten ?

danke...

[Balu der Bär]

Hallo, die Forensuche sollte dir helfen, hier mal was aus meinem Code-Archiv:

Delphi-Quellcode:

function ListFiles(Box : TListbox) : Boolean; 
var 
LStrList: TStringlist; 
LPfad: String; 
LSearchRec: TSearchRec; 
begin 
LPfad := ExtractFilePath(ParamStr(0)) + '\unterverzeichnis_des_ordners\'; //Oder anderer Ordnerpfad
Box.Items.Clear; 
LStrList := TStringlist.Create; 
if FindFirst(LPfad + '*.*', faAnyFile, LSearchRec) = 0 then 
  begin 
   repeat 
    if LSearchRec.Attr and faDirectory = 0 then 
     begin 
      Box.Items.Add(LSearchRec.Name); 
     end; 
   until FindNext(LSearchRec) <> 0; 
   FindClose(LSearchRec); 
  end; 
LStrList.Free; 
end;

Aufruf:

Delphi-Quellcode:

ListFiles(Listbox1);

Sollte dir eine Listbox nicht recht sein kannst du es ja nach belieben lernen. Oder guck dir einfach einmal FindFirst bzw FirstNext an.