Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#118: How can I receive a number of files in some folder?

Today I want to post tip with small function which allow to calculate a number of files in a specified directory.

function GetFilesCount(Folder, WildCard: string): Integer;
var
  intFound: Integer;
  SearchRec: TSearchRec;
begin
  Result := 0;
  if (Folder <> '') and (Folder[Length(Folder)] <> '\') then
    Folder := Folder + '\';
  intFound := FindFirst(Folder + WildCard, faAnyFile, SearchRec);
  while (intFound = 0) do
  begin
    if not (SearchRec.Attr and faDirectory = faDirectory) then
      Inc(Result);
    intFound := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;

To use:
i := GetFilesCount('d:\', '*.zip'); //retrieve a number of zip-archives
i := GetFilesCount('c:\windows\', '*.bmp'); //retrieve a number of bitmaps
i := GetFilesCount('c:\My Documents', '*.*'); //retrieve a total number of any files

Published: March 14, 2001

See also

	Clarion Viewer
	Paradox to MS Access converter
	ABA Database Convert
	dBase Viewer
	SMReport
	DBLoad
	ABA Document Convert
	Protected Storage Viewer
	DBExport tools
	Excel Reader (dll)

Contact to webmaster