利用C++Builder遍历文件目录
注：复制代码时注意空格
利用C++Builder我们可以轻松地实现类似Windows的Explorer的目录树。OK,Let 's go.
我们需要一个TTree和一个TImageList控件。如何获得系统的盘符呢？Borland给我们提供了一个TDriveType类，什么？帮助里找不到，呵呵，这是实现TDirectoryComboBox用到的一个类，帮助里当然没有了，它的定义如下：
typedef enum ATTR { atDirectory,atFile} Attr; struct ITEMPROPERTY {
Attr ItemAttr; }ItemProperty;
typedef enum TDRIVETYPE {dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM,dtRAM}TDriveType;
那么如何知道这些盘符是软驱是硬盘呢？这就需要用到WinAPI函数GetDriveType了。定义如下：
UINT GetDriveType(LPCTSTR lpRootPathName); 具体内容请大家参考帮助文档，我就不在这儿耽误大家时间了。最后我们利用BCB的FindFirst,FindNext等函数就可以实现对目录的遍历了。
下面的两个函数InitDriectoryTree用来获得盘符和它们的属性，BrowseDriectory采用递归法实现对目录的遍历，具体实现如下：
bool __fastcall TForm1::InitDirectoryTree() {
DriveCount=GetAllDrive();
DriveType=new TDriveType[4]; for(int i=DriveCount;i> 0;i--) {
TTreeNode* Node=DirTree-> Items-> Item[i];
DriveType[i]=TDriveType(GetDriveType(Node-> Text.c_str())); switch(DriveType[i]) {
case dtFloppy: //软驱
case dtFixed: BrowseDirectory(Node-> Text,Node);break;//硬盘
case dtNetwork: BrowseDirectory(Node-> Text,Node);break;//网络驱动器 case dtCDROM: //光驱
case dtRAM: BrowseDirectory(Node-> Text,Node);break; //内存虚拟盘?不大明白，可能像Win98启动盘生成的那个E:盘一样 };
}
return true;
//TODO: Add your source code here }
//---------------------------------------------------------------------------
void __fastcall TForm1::BrowseDirectory(AnsiString Dir, TTreeNode* Node) {
TSearchRec sr;
TTreeNode* SubNode=Node;
if(FindFirst(Dir+ \while(1)
{ if(sr.Attr==faDirectory&&sr.Name!= \{
SubNode=DirTree-> Items-> AddChild(Node,sr.Name); BrowseDirectory(Dir+sr.Name+ \}
if(FindNext(sr)!=0) break; }
FindClose(sr); return;
//TODO: Add your source code here }
//--------------------------------------------------------------------------- 以上我们利用C++Builder实现了对计算机文件系统的访问，实际上我们可以利用上面的函数创建一个可以访问文件系统的VCL控件来代替BCB提供的TDirectoryListbox和TDirectoryComboBox，使你的程序更具有Win9X的风格
将指定目录的结构装入TreeView中
注：复制代码时注意空格
TreeView组件是一个树状的列表组件，它在应用程序的编写中有极其广泛的应用。如：资源管理器、网际快车（FlashGet）、FoxMail等，其中，Windows的资源管理器就是一个典型的例子。
在C++ Builder中，要使用TreeView组件是件很容易的事情，只要调用TreeView组件的Add或AddChild方法就可以很方便地为TreeView添加一个新的节点。若要将指定的磁盘或目录的树状结构放到TreeView组件中，可以使用遍历目录树的方法将指定磁盘或目录下的所有目录（包括子目录）和文件添加到TreeView中。
下面，让我们通过实际的例子来实现把C盘目录树装载到TreeView中。
首先，运行Borland C++ Builder 5.0，在窗体Form1上添加两个Button组件、一个Edit组件、一个TreeView组件和一个Animate组件。然后把组件Button1的Caption属性改为“装载TreeView1”，把组件Button2的Caption属性改为“清除”，把组件Edit1的Text属性改为“C:\\”，用来设置默认的要遍历的目录--C盘的根目录，组件Animate1是在遍历目录时用来显示动画，在这里把它的CommonAVI属性设成“aviFindComputer”，为显示查找计算机的动画，你也可以设为其它动画。
按F12键打开代码编辑窗口，在“TForm1 *Form1;”语句的下面加入下面的这条语句定义自定义函数BrowDir：
void __fastcall BrowDir(TTreeNodes * Nodes,AnsiString PathName,TTreeNode * Num);
BrowDir函数是一个通过递归调用来实现遍历目录的自定义函数。它有三个参数，第一个参数传送一个TreeView组件的节点用以增加新的节点，第二个参数是指定目录的路径，第三个参数也是传送一个节点，用来说明要在那个节点增加新节点。 下面是它的程序清单：
void __fastcall BrowDir(TTreeNodes * Nodes,AnsiString PathName,TTreeNode * Num) {
TSearchRec sr; TTreeNode* Layel; //列举所有的目录
if (FindFirst(PathName+ \{ do {
//判断是否是目录，并排除目录“.”和“..”
if((sr.Attr & faDirectory) && sr.Name!= \
{
//增加新节点
Layel=Nodes-> AddChild(Num, \目录： \//调用函数本身，进入子目录
BrowDir(Nodes,PathName+sr.Name+ \ }
} while (FindNext(sr) == 0); FindClose(sr); }
//列举所有文件
if (FindFirst(PathName+ \{ do {
if(!(sr.Attr & faDirectory))
Nodes-> AddChild(Num, \文件： \
} while (FindNext(sr) == 0); FindClose(sr); } }
将自定义函数BrowDir()添加到程序中，然后双击Button1组件，在它的OnClick事件中加入：
//设置光标为漏斗
Screen-> Cursor=crHourGlass; //激活Animate
Animate1-> Active=true;
AnsiString Path=Edit1-> Text;
//如果Path最后一个字符不是“\\”就在后面加上“\\” if(Path.SubString(Path.Length(),1)!= \
Path+= \
BrowDir(TreeView1-> Items,Path,TreeView1-> Items-> Add(NULL,Path)); //设置光标为正常状态
Screen-> Cursor=crDefault; //关闭Animate
Animate1-> Active=false;
在Button2的OnClick事件中加入：
TreeView1-> Items-> Clear(); TreeView2-> Items-> Clear();
按F9编译运行，点击“装载TreeView1”按钮，过一会儿TreeView1组件就会出现C盘目录树的结构。
这种方法的优点是打开子节点的速度快，缺点就是遍历目录时，当子目录和文件越多，遍历时所需的时间就越长。用这样例子来做资源管理器，显然是不行的。 我们都知道，TreeView组件有一个OnChange事件，当TreeView组件的节点发生改变的时候就会发生该事件。若在该事件中加入相应的代码，把改变的节点所表示目录下的子目录添加到TreeView组件中，这样，程序运行时速度就会很快。 这种方法实现步骤如下：
往窗体Form1上再添加一个Button组件和一个TreeView组件，它们的Name属性分别为：Button3和TreeView2。把Button3的Caption属性改为“装载TreeView2”，然后双击Button3组件，在Button3的OnClick事件中加入以下代码：
AnsiString Path=Edit1-> Text;
if(Path.SubString(Path.Length(),1)!= \
Path+= \
TreeView2-> Items-> Add(NULL,Path);
在TreeView2的OnChangeing事件中加入：
Screen-> Cursor=crHourGlass; Animate1-> Active=true; //防止重复增加节点 if(Node-> Count==0) {
TSearchRec sr;
AnsiString DirName,DirTmp; TTreeNode * NodeTmp=Node; DirName=Node-> Text; //得到完整的路径
for(int I=Node-> Level ;I> 0 ;I--) {