В примере filez.zip исправил рекурсивную функцию DoFiles и всё заработало
void __fastcall TForm1::DoFiles(TBFFiles* pFiles, String Path)
{
// TBFFiles* pFiles1 = new TBFFiles();
for (int i=0; i<pFiles->Count;i++)
{
if (pFiles->Files->Folder)
{
Path = Path +"\\"+ pFiles->Files->Name;
try
{
BFFileTransferClient->SetPath(pFiles->Files->Name, false);
pFiles = BFFileTransferClient->Dir();
DoFiles(pFiles, Path);
BFFileTransferClient->SetPath("..", false);
pFiles = BFFileTransferClient->Dir();
}
catch (...)
{
Memo1->Lines->Add("Oooooops");
}
}
else
{
if(ExtractFileExt(AnsiUpperCase(pFiles->Files->Name)) == ".JPG")
Memo1->Lines->Add(ExtractFileExt(AnsiUpperCase(pFiles->Files->Name))+"<->"+pFiles->Files->Name+"<><><>"+pFiles->Files->Name);
}
}
}