866  14

 		
faReadOnly	$00000001	   ;
faHidden	$00000002	 
faSysFile	$00000004	 
faVolumeID	$00000008	 
faDirectory	$00000010	
faArchive	$00000020	 
faAnyFile	$0000003F	 

    FindFirst.      Path
  ,     Attr   , -
    .     -
      .  -
  ,   0,      F -
  TSearchRec    .    
 FindNext     F   ,   
  ,   .  , 
      ,    , 
 FindClose,       -
.

,        -
         Memol:

TSearchRec sr;

Memol->Clear() ;

if (FindFirst("*.*", faAnyFile I faDirectory, sr) == 0)
(

Memol->Lines->Add(sr.Name+", : "+IntToStr(sr.Size));

while (FindNext(sr) == 0)
Memol->Lines->Add(sr.Name+", : "+IntToStr(sr.Size));

}
FindClose(sr) ;

   .     
Button 1            -
    .tds:

void _fastcall TFormI::ButtonlClick(TObject *Sender)
{
AnsiString CurDir = GetCurrentDir() ;

TSearchRec sr;

if (FindFirst("*.*", faAnyFile I faDirectory, sr) == 0)
{

if(CompareText(ExtractFileExt(sr.Name),".tds") == 0)
DeleteFile(sr.Name) ;

else if((sr.Attr == faDirectory)&&(sr.Name !=".")&&(sr.Name !=".."))
{
SetCurrentDir(ExtractFileDir(sr.Name));

ButtonlClick(Sender) ;

SetCurrentDir(CurDir) ;

)

while (FindNext(sr) == 0)
(

if(CompareText(ExtractFileExt(sr.Name),".tds") == 0)
DeleteFile(sr.Name) ;

else if((sr.Attr == faDirectory)&&(sr.Name !=".")&&(sr.Name !=".."))