Datein (eines Ordners) in einer Listbox auflisten...

[Alexander]

Delphi-Quellcode:

procedure Topen.GetFiles(Path: string; List : TListView);
var
  SearchRec : TSearchRec;
  Item: TListItem;
begin
  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
  begin
    repeat
      if (SearchRec.Attr <> faDirectory) then
      begin
       Item := List.Items.Add;
       Item.Caption := SearchRec.Name;
       end;
     until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
    anIcon.Free;
  end;
end;

Probier das mal...
Habe ich gerade aus einem meiner Projekte rausgeschnitten, allerdings musste ich ein paar Sacehn verändern, habe es dann aber nicht mehr getestet...