原创 用递归的方法把某个目录填充到TTreeView控件.

   int nPos;
   //获取当前目录下的所有文件
   TStringDynArray FileList=TDirectory::GetFiles(Path);
   for(int n=0;n<FileList.Length;n++)
   {
    String FullFileName;
    String FileName;
    FullFileName=String(FileList[n]);
    nPos=LastDelimiter('\\',FullFileName);
    //得到文件名,注意,不是完整文件名
    FileName=FullFileName.SubString(nPos+1,FullFileName.Length()-nPos+1);
    SubNode->Owner->AddChild(SubNode,FileName);
   }
   //折叠
   SubNode->Collapse(true);
   //展开
   TopNode->Expand(true);
  }

 }
}
//---------------------------------------------------------------------------
//调用
void __fastcall TMyThread::Action(void)
{
 MainForm->tv->Items->Clear();
 MainForm->tv->AutoExpand=true;
 MainForm->tv->Color=RGB(random(255),random(255),random(255));

 MainForm->tv->Items->Add(NULL,"Root");
 TTreeNodes *Root =MainForm->tv->Items ;
 //FillTreeview("E:\\Driver\\Thinkpad\\T61[VISTA]",Root->Item[0]);  //
 this->FillTreeview("W:\\FREE_RTOS",Root->Item[0]);
 //this->FillTreeview("D:\\",Root->Item[0]);
}

 <梅川酷子原创>