Leere Verzeichnisse rekursiv löschen

[mleyen]

Du rufst die Funktion immer wieder rekursiv mit dem gleichen Parameter auf.
Ich hoffe das ist jetzt der einzige Fehler.

Delphi-Quellcode:

if DirectoryExists(Files[iFile]) then
  DeleteEmptyDirectories(Files[iFile]);