alle dateien aus einem ordner auflisten

[yoshie]

re musst mal schauen, ob die das was nützt habe ich jetzt mal gefuunden

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  s, path: string;
begin
  path:=extractfilepath(application.exename)+'*.thm'#0;
  s := path;
  ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
end;




//Oder mit dieser Function
function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;
var SRec: TSearchRec;
  SL: TStringList;
begin
  SL := TStringList.Create;
  FindFirst(Path + Mask, not faDirectory, SRec);
  if ShowPath then
    SL.Add(Path + SRec.Name)
  else
    SL.Add(SRec.Name);
  while FindNext(SRec) = 0 do
    if ShowPath then
      SL.Add(Path + SRec.Name)
    else
      SL.Add(SRec.Name);
  FindClose(SRec);
  Result := SL;
end;



//Aufruf
procedure TForm1.Button2Click(Sender: TObject);
var
  path : string;
begin
  path:=extractfilepath(application.exename)+'Themen\'+Edit1.Text+'\';
  ListBox1.Items:=ReadDir(path,'*.THM',false);
end;

greetz yosh


damit kannst du alle dateien eines ordners mit einer bestimmten endun ausgeben