Hi,
CountDirectories ist immer 0, da direkt nach dem Inkrementieren wieder Find() aufgerufen wird und der Wert dort wieder auf null gesetzt wird:
Delphi-Quellcode:
Inc(FCountDirectories);
Error := Find(RootFolder + wfd.cFileName + '\');
Leider fällt mir auser einer zusätzlichen privaten Find() Prozedur nichts ein um das Problem zu beheben
@ EDIT oder Find() durch Search() ersetzen
Delphi-Quellcode:
Inc(FCountDirectories);
Error := Search(RootFolder + wfd.cFileName + '\');