Delphi-PRAXiS - Delphi Ordneranzahl in einen Ordner ermitteln ?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Ordneranzahl in einen Ordner ermitteln ? (https://www.delphipraxis.net/80282-ordneranzahl-einen-ordner-ermitteln.html)

Ordneranzahl in einen Ordner ermitteln ?

Hallo. Wie kann ich rausfinden wieviele Ordner in %Windows% ordner gibt ? mit eien Funktion...

Re: Ordneranzahl in einen Ordner ermitteln ?

Mit FindFirst, FindNext rekursiv den Ordner durchsuchen und jedesmal, wenn ein Ordner gefunden wurde einen Zähler um eins erhöhen. Beispielcode zu den genannten Funktionen findest du im Forum genug.

Re: Ordneranzahl in einen Ordner ermitteln ?

Falls Du noch nix gefunden hast, dieser Code sollte das sein, was Du suchst:

http://www.delphipraxis.net/internal...=589749#589749

An der Stelle wo der Kommentar steht, musst Du einfach Deine Zählvariable um 1 erhöhen.
Um einen Ordner auszuwählen in dem gesucht werden soll, ersetze in der ersten Zeile das '*' duch Deinen Ordner.
Das * muss allerdings da bleiben, also z.B.: 'C:\Windows\*'
Wenn Du Umgebungsvariablen für den Ordnernamen verwenden möchtest, suche mal nach EnvironmentString oder EnvironmentVariable (evtl. noch mit Expand davor).