Also du müsstest erstmal wirklich was rekursives schreiben.
Ein Beispiel findest du in FTchange ... aber nur
Unicode derzeit. (siehe auch FW oder
OS-Sektion).
Da nimmst du eine Schlefie, die solange läuft, wie FindNext was zurückgibt (also Erfolg). Innerhalb der Schleife überprüfst du die Attribute und gehst dann mit einem weiteren Aufruf der Procedure/Function (in der dies Schleife sich befindet) in jedes Verzeichnis. Und wenn es sich um Datei oder Verzeichnis handelt, dann kannst du zB versuchen es zu löschen ... und wenn es nicht klappt einen Fehler ausgeben.