Scalabium Software

SMExport advertising
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
 
ABA Spreadsheet Convert
ABA Database Convert
SMDBGrid
Clarion Viewer
Paradox to MS Access converter
Paradox to Text converter
Database Information Manager
Mail parser (ActiveX)
SMMsg suite
DBExport tools
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2017, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport/SMImport suites