leere Ordner Finden (mit Subdirs)

[Muetze1]

Moin!

Ist doch relativ einfach: Ändere die Procedure zu einer Funktion die einen Boolean zurück gibt. Dieser Boolean gibt an, ob ein Verzeichnis leer ist (Result := True) oder nicht (Result := False). Nun kannst du beim durchsuchen des aktuellen Ordners erstmal so vorgehen, das du Result auf False setzt, wenn du min. eine Datei findest. Wenn du ein Verzeichnis findest, dann die Funktion selber mit dem Verzeichnis wieder aufrufen - wenn der Rückgabewert ein True ist und du aber schon min. eine Datei gefunden hast (Result = False), dann diesen Ordner der Ausgabe zuordnen. Und so hast du mit der Rekursion eine einfache Lösung.

(Wobei ein "leeres" Verzeichnis eigentlich nur "." und ".." enthält - also auch keine Verzeichnisse - sonst wäre es nicht leer...)

MfG
Muetze1