C++ Builder XE扫描读取文件夹内所有子文件夹路径

//读取文件夹中所有子文件夹

  String Dir=RzButtonEdit1->EditText;

  TSearchRec   sr;

  TStringList *Flist =new TStringList;

  Flist->Clear();

  if(FindFirst(Dir+"\\*.*",faDirectory,sr)   ==   0)

  {

      //Oldlist = RzListView1->Items->Count;

      do

      {

         if( !sr.Name.Pos(".")  )  //sr.Name!="." && sr.Name!=".."

         {

            Flist->Append(Dir+"\\"+sr.Name);

         }

      } while(FindNext(sr) == 0);

      FindClose(sr);

  }