Ein Ordner kann auch einen Punkt im Namen enthalten!
Mein Vorschlag:
Delphi-Quellcode:
if FindFirst('*', faAnyFile, SR) = 0 then
try
repeat
if (SR.Attr and faDirectory <> 0) and (SR.Name <> '.') and (SR.Name <> '..') then
// SR.Name ist ein Ordner!
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
//Edit:
*.* durch * ersetzt.