搜索指定文件夹（包括子文件夹）里的TXT文档？解决方案

搜索指定文件夹（包括子文件夹）里的TXT文档？
想问下大侠们，有没有什么方法，可以搜索指定文件夹（包括子文件夹）里的TXT文档？要是能将找到的TXT挡的文件路径保存下来就更好了！！谢谢了！~~
不知道这种方法指定的文件夹行不：
AnsiString Dir;
SelectDirectory (AnsiString("选定文件夹？","",Dir));
if (Dir!="")
ShowMessage(Dir);
Memo1->Lines->Text="Dir";

------解决方案--------------------

C/C++ code


void __fastcall TForm1::Button1Click(TObject *Sender)
{

   Memo1->Lines->Clear();
  SelectDirectory(AnsiString("Select a Folder"),"",dir);
  Memo1->Lines->Add(dir);//这个模块用来选择文件夹；

}
//---------------------------------------
int TForm1::Add(String Path)
{
 TSearchRec F;
  int fr=0;
  if(FindFirst(Path+"\\*.*",faAnyFile,F)==0)
  {
      do
      {
          if(F.Attr==faDirectory&&(F.Name!="."&&F.Name!=".."))
          {
             Add(Path+"\\"+F.Name);
          }
          else
             Memo1->Lines->Add(Path+"\\"+F.Name);
          fr=FindNext(F);
      }while(fr==0);
      FindClose(F);
  }
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    //dir = "E:\\cbTest\\data";
    Add(dir);
}

搜索指定文件夹（包括子文件夹）里的TXT文档？解决方案

相关推荐