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

	dBase Viewer
	Excel Reader (dll)
	Paradox Password Recovery
	Protected Storage Viewer
	Viewer for MS Outlook Messages
	SMExport suite
	Excel Web-stream
	Database Information Manager
	DBLoad
	Viewer for TNEF-files (winmail.dat)

Contact to webmaster