Alle Ordner eines Verzeichnises in einer Listbox auflisten

[Dragon27]

Hallo,

also ich habs jetzt mal so probiert:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
ListFiles(Listbox1);
end;

Aber leider funktioniert das nicht

Danke für Eure Hilfe!