Liste wie im Explorer

[mwiesbau]

hallo,

mach es einfach mit findfirst findnext findclose.

vom ablauf her du durschsuchst den ausgewählten ordner nach allen dateien.

Delphi-Quellcode:

var
directory: string;
sr: tsearchrec;
begin

findfirst(directory+'\*.*',faanyfile,sr);
listbox1.Items.Add(search.Name);     // statt name kannstdu noch size time attr verwenden
  while findnext(sr)=0 do
    begin
    listbox1.Items.Add(sr.Name);
    end;

  findclose(sr)

hoffe du kommst nun weiter