$ebbi - Fr 13.04.12 15:55
Titel: Anzahl der Ordner in Verzeichnis ermitteln
Hey,
ich würde gern herausfinden wieviele Ordner sich in einem bestimmten Verzeichnis befinden, allerdings klappt das momentan nur mit Files und nicht mit Ordnern
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure ...
var
Search : TSearchRec;
Verz : String;
begin
Verz := epfadord.text;
if FindFirst(Verz + '*.*' , faAnyFile, Search) = 0 then
try
repeat
if (Search.Attr and faArchive) = faArchive then
Listbox4.items.Add(Search.Name);
until
FindNext(Search) <> 0;
finally
SysUtils.FindClose(Search);
end; |
wie müsste ich das modifizieren, damit mir auch Ordner angezeigt werden?
mfg Sebbi