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

2023-11-14 11:24:58

//读取文件夹中所有子文件夹
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);
}