Hallo,
in der CL wirst du fündig u.a. mit dem Suchbegriff
FindAllFiles.
Die Version, die für dich am leichtesten zu verstehen ist, dürfte die
VCL-Version von Sakura bzw. die von Luckie abgeänderte sein. Wie du damit nur die Verzeichnisse auflistest, bekommst du mit ein klein wenig Überlegen selbst heraus, da der Code kommentiert ist. Für dich relevant ist, wie nicht schwer zu erraten, dieser Kommentar:
Delphi-Quellcode:
// --> ein Verzeichnis wurde gefunden
// der Verzeichnisname steht in SR.Name
// der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist
// RootFolder + SR.Name