用TreeView浏览目录

韩冰

void __fastcall TForm1::FormCreate(TObject *Sender) { CurrentDir=GetCurrentDir(); ; i' @. _' O4 C) ^ b" dUpdateTreeView(); UpdateListView();

} //--------------------------------------------------------------------------- void __fastcall TForm1::UpdateTreeView() K5 `7 I$ v: `" ]+ d{ 5 L. V! |# V' z: e }2 B2 Z& G# oTTreeNode *rNode,*mNode; ) S* O5 P/ q9 k8 \. r" XTreeView1->Items->Clear(); rNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑"); rNode->ImageIndex=1; rNode->SelectedIndex=1; mNode=TreeView1->Items->AddChild(rNode,"A:"); " C5 B% ^/ v2 K: w8 m1 N( b2 ?0 VmNode->ImageIndex=2; mNode->SelectedIndex=2; AddDirectory("A:",mNode); for(int i=1;i<DriveComboBox1->Items->Count;i++) { mNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":"); mNode->ImageIndex=3; 4 d; Y6 M4 ~; x& N" dmNode->SelectedIndex=3; AddDirectory(AnsiString(char('B'+i))+":",mNode); " H) I3 ]# {4 ^5 O; o7 ~/ W} 8 p4 \) ^/ P" M8 _5 g3 a} //------------------------------------------------------------------------ 2 b- G2 y# W5 b; l! Nvoid TForm1::AddDirectory(AnsiString path,TTreeNode *fNode) { ( H) s$ \, J! B- v+ Y* n! ETSearchRec sr; TTreeNode *mNode; if(FindFirst(path+"\\*.*" ,faDirectory,sr)==0) 0 b3 G5 v t1 f{ if(sr.Attr==faDirectory) : u' x3 l9 o' q* q) ?1 S{ , V# J/ \# j7 v2 w6 P. ~$ Oif(sr.Name!="."&&sr.Name!="..") & h3 D* i: _" C{ mNode=TreeView1->Items->AddChild(fNode,sr.Name); 5 ?/ [) }. q6 G5 `, ]# qmNode->ImageIndex=0; - [8 S0 R. Q+ B9 l4 C/ v. cmNode->SelectedIndex=4; # V: |7 F: i x" V! Z# f: i+ u// AddDirectory(path+"\\"+sr.Name,mNode); 7 N/ a/ c* J. J+ P4 A- h} / V) e; p5 g( f! n$ {} } " T! `, x( T, k# g- u3 G& swhile(FindNext(sr)==0) { ; A. l% E8 z1 \. e- ~! bif(sr.Attr==faDirectory) { if(sr.Name!="."&&sr.Name!="..") 7 m; v) O: o; L7 p1 g" i* r{ mNode=TreeView1->Items->AddChild(fNode,sr.Name); : m. G$ C( C5 DmNode->ImageIndex=0; 0 e5 H- k2 _8 Q1 G: OmNode->SelectedIndex=4; . @8 j/ e: ]- Q) d( Q( i/ v- k0 ]// AddDirectory(path+"\\"+sr.Name,mNode); } 2 d$ ~5 d, d t" h8 r) y9 u} # }# s+ a3 D- B$ l} + {' k5 f' J+ t. a6 ?) j4 Y# }FindClose(sr); }

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

void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange) / J) `; z1 o) i. q! E{ 8 ~% q% n- P5 i/ a: [( P' e# wScreen->Cursor=crHourGlass; TSearchRec sr; / S2 g T4 N4 C8 O$ a0 L8 O1 I6 mTTreeNode *NodeTmp=Node; AnsiString DirName,DirTmp; DirName=Node->Text; for(int i=Node->Level;i>1;i--) & [, J2 k' _3 t3 s7 x# F8 r{ 8 x8 t5 x2 R3 g" `* j$ m+ PNodeTmp=NodeTmp->arent; DirTmp=NodeTmp->Text; if(DirTmp.SubString(DirTmp.Length(),1)!="\\") ! _9 j* o5 q# g( ^" q8 J2 PDirTmp+="\\"; 7 d; p* k) ^2 I+ u& s1 ]7 G c! ^DirName.Insert(DirTmp,0); } if(DirName.SubString(DirName.Length(),1)!="\\") DirName+="\\"; . A+ k! D/ _7 U; n' i' [$ Vfor(int j=0;j<Node->Count;j++) / l' _+ k7 C+ ?% W" B% N6 U{ if(Node->Item[j]->Count==0); # ? u" e4 D5 W! O. ^) U! w! l{ , S% \1 N: m. Q6 p7 f8 }: gif (FindFirst(DirName+Node->Item[j]->Text+"\\*.*", faAnyFile, sr) == 0) , K0 m' [' ?( r& f5 {4 \4 r" P{ do { //Node->Item[j]->ImageIndex=5; //Node->Item[j]->SelectedIndex=4; . p. _1 F3 Y9 v+ Y u. b; E$ l/ _if((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..") { / c; B' n4 M5 O- INode->Item[j]->ImageIndex=0; ; L: R- a' ^' ]1 O% |/ }Node->Item[j]->SelectedIndex=4; r6 v. A# n! h& m6 b- fTreeView1->Items->AddChild(Node->Item[j],sr.Name); 2 q+ P, f7 M. n} % S8 k' K0 O$ z( k, C) }} " Z6 p; j4 ?- u. lwhile (FindNext(sr)==0); FindClose(sr); 0 T& F5 \; C& Y+ g h} } % ~$ w! I4 T& \) ^( p* G. ^} 9 m4 ~. B+ U, d( O X& kScreen->Cursor=crDefault; 2 r1 g& I. q6 J w: |4 O}