Need hlp with directory size

[WojTec]

Delphi-Quellcode:

var
  Dir: string;
  Rec: TSearchRec;
begin
  Result := 0;

  Dir := IncludeTrailingPathDelimiter(ADirectory);
  if FindFirst(Dir + AMask, faAnyFile or faDirectory, Rec) = 0 then
  try
    repeat
      if (Rec.Attr and faDirectory) = faDirectory then
      begin
        if (Rec.Name <> '.') and (Rec.Name <> '..') then
          Result := Result + GetDirectorySize(Dir + Rec.Name)
        ;
      end
      else
        Result := Result + GetFileSize(Dir + Rec.Name);
      ;
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;
end;

This is my function. It working well, when need to get complete folder size, but for example if I set mask to "*.mp4", it returns 0. Test folder contain 0 files and many folders, each one contain files (in each one is minimum 1 MP4 file). What's wrong with this code?

[DeddyH]

I suppose the directories do not end on ".mp4", so your mask does not match.

[WojTec]

You are correct. I know. But how (where) to apply this mask?

[DeddyH]

You should set the internally used mask to *.* and check the search result to the mask of interest. I wrote a component which does it this way, in case of interest you can find it on Torry.

[WojTec]

Nice component, I glanced on it, found what I needed and, yeah, I did it! :D