Zitat von
torud:
Ich erhalte alle Unterordner aber auch 2 Einträge mit . und ..
Das sind
virtuelle Verzeichnisse, die ausgefiltert werden müssen:
Delphi-Quellcode:
if (SR.Attr and faDirectory = faDirectory) and (sr.Name<>'.') and (sr.Name<>'..') then
AList.Add(sr.Name);