Question

I need to do some searching in the filesystem and would like to present a progress indication.
A rough approximation of that is the number of directories traversed.

function GetSubDirCount(Path : String): integer;
var
  Index : Integer;
  Temp : String;
  SearchRec : TSearchRec;
begin
  Result:= 0;
  Temp:= Path;

  if Path[Length(Path)] <> SysUtils.PathDelim then begin
    Path:= Path + SysUtils.PathDelim;
  end;
  Path:= Path + '*.';

  Index:= FindFirst(Path, faDirectory, SearchRec);

  while Index = 0 do begin
    if (SearchRec.Name = '.') or (SearchRec.Name = '..') then begin
      Index:= FindNext(SearchRec);
      Continue;
    end;

    Inc(Result);
    Result:= Result + GetSubDirCount(Temp + SysUtils.PathDelim + SearchRec.Name);
    Index:= FindNext(SearchRec);
  end;

  FindClose(SearchRec);
end;

I currently use the above code, is there a faster way?
I’m only interested in the count.
If there’s a really fast way to get the number of files as well that would be a bonus.

Answer 1

As you are not specifying the Delphi version you are using, I suggest the corresponding methods from IOUtils – namely TDirectory.GetDirectories and TDirectory.GetFiles as they are available in recent Delphi versions.

Update: It is probably not the fastest way to count the number of directories and files, but if the files shall be iterated later anyway, one could as well use the result of these functions for the iteration.