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);

  }