Программа из книги. Рекурсивный поиск файлов.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "dir.h"
#include "SysUtils.hpp"
#include "windows.h"
 
using namespace std;
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TmainForm *mainForm;
//---------------------------------------------------------------------------
__fastcall TmainForm::TmainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void _fastcall TMainForm::FindFiles(AnsiString APath, const AnsiString AMask, int AAttributes)
{
TSearchRec sr;
 
if(FindFirst(APath + "*.*", AAttributes, sr) == 0)
{
do
{
if((sr.Attr & faDirectory) != faDirectory)
{
if(((sr.Attr & AAttributes) == sr.Attr) && (MatchesMask(sr.Name, AMask)))
{
TListItem *NewItem;
NewItem = FileListView->Item->Add();
NewItem->Caption = sr.Name;
NewItem->SubItems->Add(APath);
FileCoutLabel->Caption=AnsiString("naydeno ") + IntToStr(FileListView->Items->Count) + AnsiString(" failov");
}
// конец оператора if(((sr.Attr&AAttributes)==sr.Attr) && (MatchesMask(sr.Name, AMask)))
}
else
{
if(sr.Name != "." && sr.Name!= "..")
FindFiles(APath+sr.Name+"\\", AMask, AAttributes);
}
// конец оператора if((sr.Attr&faDirectory) !=faDirectory)
Applicatin->ProcessMessages();
}
while(FindNext(sr) == 0);
FindClose(sr);
}
}
//------------------------------------------------------------------------------

void __fastcall TmainForm::Button1Click(TObject *Sender)
{
  FindFiles("c:\\Temp\\", "*.jpg", faAnyFile);
  // путь - "c:\\Temp\\" , маска - "*.jpg",
  // у вас, естественно, будут свои
  // вы также можете изменить атрибут - faAnyFile
}