FileListBox1, DirectoryListBox1, DirectoryOutline1.... Aua

[alleinherrscher]

Vielleicht suchst du was, womit mit Dateien und Ordner eines Verzeichnisses auflisten kann?

Delphi-Quellcode:

var
  LFileList: TStringlist;
  LFolderList:TStringList;
  LSearchRec: TSearchRec;
  LPfad: string;
begin

LPfad:='C:\';
LFileList:= TStringlist.Create;
LFolderList:=TStringlist.create;

if FindFirst(LPfad + '*.*', faAnyFile, LSearchRec) = 0 then
  begin
   repeat

    //Ordner auflisten

    if LSearchRec.Attr and faDirectory = faDirectory then
      if (LSearchRec.Name <> '.') and (LSearchRec.Name <> '..') then
              LFolderList.add(LSearchRec.Name);
              
    //Dateien auflisten

    if LSearchRec.Attr and faDirectory = 0 then
              LFileList.add(LSearchRec.Name);

   until FindNext(LSearchRec) <> 0;
   FindClose(LSearchRec);
  end;

end;

//edit: Variablen LFileList und LFolderlist vertauscht, sry

Mit dieser Funktion erhälst du zwei Listen, LFileList und LFolderList. Dabei enthält LFileList alle Dateien, LFolderList alle Ordner. Diese kannst du dann einfach in einer Listbox ablegen, indem du z.B.

Listbox1.items:=LFileList; verwendest.