delphi 取文件夹文件数

// 取文件夹文件数

function GetDirFiles(Dir: string): Integer;

var

 sr: TSearchRec;

 fr: Integer;

begin

 Result := 0;

 fr := FindFirst(AddDirSuffix(Dir) + '*.*', faAnyFile, sr);

 while fr = 0 do

 begin

   if (sr.Name <> '.') and (sr.Name <> '..') then

     Inc(Result);

   fr := FindNext(sr);

 end;

 FindClose(sr);

end;