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