Ordnerinhalt in eine Listbox

[Pseudemys Nelsoni]

Moin!

wie bekomme ich alle dateien, sagen wir mal aus D:\test in eine listbox?

[Uncle Cracker]

Meinst du das so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, path: string;
  i   : integer;
  stl : tstringlist;
begin
   path:='c:\Test\*.*'#0;
   s := path;

   ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
   listbox1.ItemIndex:=0;

  stl:=tstringlist.Create;
  try
    for  i := 0 to  listbox1.items.count - 1 do
    begin
      stl.Add(listbox1.items.strings[listbox1.itemindex]);
      listbox1.ItemIndex:=listbox1.ItemIndex+1;
    end;
    listbox1.Items.CommaText:=stl.commatext;
  finally
    stl.Free;
  end;
end;

[Luckie]

In der Code Lib findest du auch noch ein Beispiel.

[Pseudemys Nelsoni]

danke probers/guck gleich mal

[Stanlay Hanks]

Noch eine Möglichkeit, wenn auch mit einer total alten Komponente, wäre die FileListbox vom Register "Win 3.1". Aber mit der Geht das genauso.

Man liest sich, Stanlay

[Nimoee]

hallo,
und wie geht das jetzt mit treeview?
nimoee

[MathiasSimmack]

Dateien und Ordner selbst suchen (Stichwort: FindFirst FindNext), oder -Delphi 6 oder höher vorausgesetzt!- die Komponenten ShellTreeView und ShellListView verwenden.


Ergänzt von mir: Ich schreib hier nix mehr, endlich habe ich mal ´nen coolen Beitragszähler ... ... the number of the beast ...