Hi,
Da himitsu die Sache mit dem Dateienzählen angedeutet hatt hätte ich noch ein Feature vorzuschlagen
ein Property welches die Anzahl der Dateien im Aktuellen Verzeichnis zurückgibt
Delphi-Quellcode:
// Hier und möglicherweise bei Find() Initialiseren
end;
FilesInFolder := 0;
// neu
Dec(FLevel);
// Hier erhöhen
repeat
Inc(FCountFiles);
Inc(FilesInFolder );
// neu
Nicht getestet sollte aber klappen