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

	Fast Document Viewer
	Paradox to MS Access converter
	SMImport suite
	Paradox Viewer
	ABA Document Convert
	Mail parser (ActiveX)
	MAPIMail
	SMDBGrid
	Metafile Convert
	Paradox to Text converter

Contact to webmaster