Кто-нибудь знает код, который я могу использовать для подсчета количества папок в указанном каталоге?
Подсчет папок в папке
Ответ 1
Самый простой код, который я знаю, использует TDirectory
из блока IOUtils
:
function GetDirectoryCount(const DirName: string): Integer;
begin
Result := Length(TDirectory.GetDirectories(DirName));
end;
TDirectory.GetDirectories
фактически возвращает динамический массив, содержащий имена каталогов, поэтому это несколько неэффективно. Если вам нужно наиболее эффективное решение, вы должны использовать FindFirst
для перечисления.
function GetDirectoryCount(const DirName: string): Integer;
var
res: Integer;
SearchRec: TSearchRec;
Name: string;
begin
Result := 0;
res := FindFirst(TPath.Combine(DirName, '*'), faAnyFile, SearchRec);
if res=0 then begin
try
while res=0 do begin
if SearchRec.FindData.dwFileAttributes and faDirectory<>0 then begin
Name := SearchRec.FindData.cFileName;
if (Name<>'.') and (Name<>'..') then begin
inc(Result);
end;
end;
res := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;
end;