Scalabium Software

SMExport advertising
Knowledge for your independence'.
Home Delphi and C++Builder tips

#114: How can I load a file list by some wildcard?

After small delay with tip posting I want to continue this important task:-)

Today I'll post a small sample which show how you can receive a list of files from some specific directory by some custom wildcard. For example, to load in listbox the bmp-files from Windows directory.

procedure LoadFilesByMask(lst: TStrings; const SpecDir, WildCard: string);
  intFound: Integer;
  SearchRec: TSearchRec;
  intFound := FindFirst(SpecDir + WildCard, faAnyFile, SearchRec);
  while intFound = 0 do
    lst.Add(SpecDir + SearchRec.Name);
    intFound := FindNext(SearchRec);

For example, to load bmp-files from application folder:
LoadFilesByMask(lbFiles.Items, ExtractFilePath(Application.ExeName), '*.bmp')

Published: February 2, 2001

See also
ABA Database Convert
Database Information Manager
DBExport tools
Paradox ActiveX
Clarion Viewer
Paradox to Text converter
ABA Picture Convert
Clarion to Text converter
Excel Reader (dll)

Contact to webmaster


Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2024, Scalabium Software. All rights reserved.

SMReport Autogenerated