用TreeView浏览目录

　　void __fastcall TForm1::FormCreate(TObject *Sender)

　　{

　　CurrentDir=GetCurrentDir();

　　UpdateTreeView();

　　UpdateListView();

　　}

　　//---------------------------------------------------------------------------

　　void __fastcall TForm1::UpdateTreeView()

　　{

　　TTreeNode *rNode,*mNode;

　　TreeView1->Items->Clear();

　　rNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑");

　　rNode->ImageIndex=1;

　　rNode->SelectedIndex=1;

　　mNode=TreeView1->Items->AddChild(rNode,"A:");

　　mNode->ImageIndex=2;

　　mNode->SelectedIndex=2;

　　AddDirectory("A:",mNode);

　　for(int i=1;iItems->Count;i++)

　　 {

　　 mNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":");

　　 mNode->ImageIndex=3;

　　 mNode->SelectedIndex=3;

　　 AddDirectory(AnsiString(char('B'+i))+":",mNode);

　　 }

　　}

　　//------------------------------------------------------------------------

　　void TForm1::AddDirectory(AnsiString path,TTreeNode *fNode)

　　{

　　TSearchRec sr;

　　TTreeNode *mNode;

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

　　 {

　　 if(sr.Attr==faDirectory)

　　 {

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

　　 {

　　 mNode=TreeView1->Items->AddChild(fNode,sr.Name);

　　 mNode->ImageIndex=0;

　　 mNode->SelectedIndex=4;

　　 // AddDirectory(path+""+sr.Name,mNode);

　　 }

　　 }

　　 }

　　while(FindNext(sr)==0)

　　 {

　　 if(sr.Attr==faDirectory)

　　 {

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

　　 {

　　 mNode=TreeView1->Items->AddChild(fNode,sr.Name);

　　 mNode->ImageIndex=0;

　　 mNode->SelectedIndex=4;

　　 // AddDirectory(path+""+sr.Name,mNode);

　　 }

　　 }

　　 }

　　FindClose(sr);

　　}

　　//--------------------------------------------------------------------

　　void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange)

　　{

　　Screen->Cursor=crHourGlass;

　　TSearchRec sr;

　　TTreeNode *NodeTmp=Node;

　　AnsiString DirName,DirTmp;

　　DirName=Node->Text;

　　for(int i=Node->Level;i>1;i--)

　　 {

　　 NodeTmp=NodeTmp->Parent;

　　 DirTmp=NodeTmp->Text;

　　 if(DirTmp.SubString(DirTmp.Length(),1)!="")

　　 DirTmp+="";

　　 DirName.Insert(DirTmp,0);

　　 }

　　if(DirName.SubString(DirName.Length(),1)!="")

　　 DirName+="";

　　for(int j=0;jCount;j++)

　　 {

　　 if(Node->Item[j]->Count==0);

　　 {

　　 if(FindFirst(DirName+Node->Item[j]->Text+"*.*", faAnyFile, sr) == 0)

　　 {

　　 do

　　 {

　　 //Node->Item[j]->ImageIndex=5;

　　 //Node->Item[j]->SelectedIndex=4;

　　 if((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..")

　　 {

　　 Node->Item[j]->ImageIndex=0;

　　 Node->Item[j]->SelectedIndex=4;

　　 TreeView1->Items->AddChild(Node->Item[j],sr.Name);

　　 }

　　 }

　　 while (FindNext(sr)==0);

　　 FindClose(sr);

　　 }

　　 }

　　 }

　　Screen->Cursor=crDefault;

　　}