Ordnernamen in Listbox laden

[quendolineDD]

Oder halt so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Assign(DirectoryListing('C:/*'));
end;

function TForm1.DirectoryListing(const PATH: string): TStrings;
var
  S : TSearchRec;
begin
  Result := TStringlist.Create;
  if FindFirst(PATH, faDirectory, S) = 0 then
  begin
    repeat
      if (S.Attr and faDirectory) = S.Attr then
        Result.Add(S.Name);
    until FindNext(S) <> 0;
    FindClose(S);
  end;
  if Result.Count = 0 then Result.Add(format('%s enthält keine Ordner', [path]));
end;

Am besten du schaust dir mal die Delphihilfe an. Einfach Copy eingeben und dann schauen was es dir anzeigt. Da siehst du auch direkt, welche Parameter die Funktion erwartet etc.

Lg