有人知道我可以使用什么代码来计算指定目录中文件夹的数量吗?
我所知道的最简单的代码使用IOUtils
单元中的TDirectory
:
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;
FindFirst
中使用_faAnyFile_
而不是_faDirectory_
? - Whiler