Ordnernamen in Listbox laden

[toms]

Zitat von cyanroot:

Und das geht wie? .

Delphi-Quellcode:

procedure ListDirectory(Strings: TStrings; const Path: string);
var
  S: TSearchRec;
begin
  if FindFirst(Path, faDirectory, S) = 0 then
  begin
    repeat
      if ((S.Attr and faDirectory) = faDirectory) and
        (s.Name <> '.') and (s.Name <> '..') then
        Strings.Add(S.Name);
    until FindNext(S) <> 0;
    FindClose(S);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListDirectory(ListBox1.Items, 'C:\*.*');
end;