TFileSeek

This component is loosly based on The TTreescanner component with several major differences.

This components returns Three Values of the "File Found".

Fileseek.FileFOundName:= String;	(File name only!)
FileSeek.FileFoundSize:= Integer;	(File Size as integer for conversion to MB if desired)
FileSeek.FileFoundTime:=String;		(File Date as String already in mm/dd/yy hh:mm:ss AM/PM format)


Properties:
FileMask		File(or files) to Search forin this format: '*.exe' or 'w*.com'.
Name			What you want to call it.
StartInDirectory	Directory to start from (eg. 'C:\','C:\WINDOWS').
Recursive		True or false. True scans all subdirectories below StartInDirectory. 

Thereis only one Event, OnFileFound.  Using the OnFileFOund Event is as follows.....

listbox1.items.add(Fileseek1.Filefoundname+' '+IntToStr(Fileseek1.FileFOundSize)+' '+FileSeek1.FileFoundTime);


To Start the scan simple call

FileSeek.Seek;


If You Have any Questions, Email me at:

 Topprolmc@worldnet.att.net

