怎么遍历一个磁盘目录

我想遍历一个磁盘然后将目录添加到TreeView中,但是我用FindFirstFile函数查C:\时为什么不行? 如果这样不行该怎么获得根目录呢?
WIN32_FIND_DATA FindFileData;
HANDLE hFind;
hFind = FindFirstFile("d:\\", &FindFileData);
if (hFind == INVALID_HANDLE_VALUE)
       return;

7 个解决方案

#1

FindFirstFile("d:\\*.*", &FindFileData);
也可用VCL中的FindFile
接着用FindNext，结束时用FindClose

还有，你想把目录和文件读到TreeView中去，可用此方法
参考Borland\CBuilder6\Examples\ShellControls里有bcbshctrls.bpk和dclshlctrls.bpk,编译再install后就可用它里面的组件啦

或参考BCB目录下的Borland\CBuilder6\Examples\VirtualListView例子，用windows里的shell解决

#2

接上面所说,如果你想遍历所有层的子目录,则可以用第归来实现,原理同上.

#3

AnsiString dir;
//判断是否在根目录下
if(DirectoryListBox1->Directory.Length() != 3 )
   dir = DirectoryListBox1->Directory + "\\*.*";
else
   dir = DirectoryListBox1->Directory + "\*.*";
//取得第一个文件handle
WIN32_FIND_DATA Data;
HANDLE File = ::FindFirstFile(dir.c_str(), &Data);
//若成功取得文件handle
if(File != INVALID_HANDLE_VALUE)
   {
   //删除ListBox1所有资料
   ListBox1->Clear();
   //若这个文件时文件目录，则加入到ListBox1い中
   do
      {
      if((Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
          && (String(Data.cFileName) != "..")
          && (String(Data.cFileName) != "."))
              ListBox1->Items->Add(Data.cFileName);
      } while(::FindNextFile(File, &Data)); //找下一个文件信息
   
   
   //寻找结束，释放handle
   ::FindClose(File);
   //将总数显示出来
   StaticText2->Caption = DirectoryListBox1->Directory + "共有" + AnsiString(ListBox1->Items->Count)+"个子目录";
   }
else //没有找到子目录
   StaticText2->Caption = DirectoryListBox1->Directory + "共有 0 个子目录";

#4

搜索一下吧，很多帖子都讨论过。

#5

是啊，连faq好象都又

#6

我刚写的一个遍历目录函数，希望对你有所帮助。
void __fastcall scanDir(AnsiString sourceDir)
{
   TSearchRec sr;
   AnsiString strDir;
   AnsiString strFile;
   int Attr = 0;
   Attr|=faAnyFile;
   if(FindFirst(sourceDir+"*.*",Attr,sr)==0)
   {
      do
      {
         if(sr.Attr & faDirectory)    //是目录
         {
            if(sr.Name.Pos(".")==0 )
            {
               strDir=sourceDir+sr.Name;
               scanLocateDir(strDir+"\\");  //继续递归调用
               StatusBar1->SimpleText="正在扫描目录"+strDir;
            }
         }
         else                         //不是目录
         {
           if(sr.Name =="..")
           {
           }
           else
           {
　　　　　　　 strFile=sourceDir+sr.Name ;
              StatusBar1->SimpleText ="正在扫描文件"+strFile ;
           }
         }
      }while(FindNext(sr)==0);
      FindClose(sr);
   }
}

在你需遍历目录的地方，调用此函数即可，如遍历C:
你这样调用即可:
   scanDir("c:\\");

#7

文档标题：将指定目录的结构装入TreeView中 
关键字： TreeView,目录,FindFirst,FindNext,遍历　 
作　者： 符东亮 阅读数：462 加入时间：2002-6-6 

--------------------------------------------------------------------------------
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+"*.*", faAnyFile, sr) == 0)
{

do
{

//判断是否是目录，并排除目录“.”和“..” 
if((sr.Attr & faDirectory) && sr.Name!="." && sr.Name!="..")
{

//增加新节点
Layel=Nodes->AddChild(Num,"目录：" + sr.Name);
//调用函数本身，进入子目录
BrowDir(Nodes,PathName+sr.Name+"\\",Layel);

}

} while (FindNext(sr) == 0);
FindClose(sr);

}
//列举所有文件 
if (FindFirst(PathName+"*.*", faAnyFile, sr) == 0)
{

do
{

if(!(sr.Attr & faDirectory))

Nodes->AddChild(Num,"文件：" + sr.Name);

} 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--)
{

NodeTmp=NodeTmp->Parent;
DirTmp=NodeTmp->Text;
if(DirTmp.SubString(DirTmp.Length(),1)!="\\")

DirTmp+="\\";

DirName.Insert(DirTmp,0);

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

DirName+="\\";

if (FindFirst(DirName+"*.*", faAnyFile, sr) == 0)
{

do
{

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

TreeView2->Items->AddChild(Node,sr.Name);

}

} while (FindNext(sr) == 0);
FindClose(sr);

}

} 
Screen->Cursor=crDefault;
Animate1->Active=false;



　　这种方法速度虽然很快，但由于只是添加一层的子目录，所得到的节点表示的目录下不管有没有子目录，节点左边都没有“＋”符号（有“＋”表示有子节点），因此就有必要将它修改一下了，于是就有第三种方法的出现。
　　第二种方法是因为只添加了下一级的子目录，所以才会出现这种问题，如果我们添加到下两级的子目录，问题就会得到解决，这就是第三种方法。这样，当打开一个节点的时候，OnChange事件的代码就会把下两级的子目录添加进来，再打开一个节点，该节点下两级的子目录又被添加进来，看起来就像是把整个目录树放到了TreeView中一样。
第三种方法的实现如下：
　　再添加一个Button组件Button4和一个TreeView组件TreeView3到窗体Form1上，将Button4的Caption属性改为“装载TreeView3”，双击Button4组件，在Button4的OnClick事件中加入以下代码：

AnsiString Path=Edit1->Text;
if(Path.SubString(Path.Length(),1)!="\\")

Path+="\\";

TTreeNode * Node1=TreeView3->Items->Add(NULL,Path);
TSearchRec sr;
if (FindFirst(Path+"*.*", faAnyFile, sr) == 0)
{

do
{

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

TreeView3->Items->AddChild(Node1,sr.Name);

}

} while (FindNext(sr) == 0);
FindClose(sr);

}

在TreeView3的OnChangeing事件中加入：

Screen->Cursor=crHourGlass;
Animate1->Active=true;
TSearchRec sr;
TTreeNode * NodeTmp=Node;
AnsiString DirName,DirTmp;
DirName=Node->Text;
for(int I=Node->Level ;I>0 ;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;J<Node->Count;J++)
{

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

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

do
{

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

TreeView3->Items->AddChild(Node->Item[J] ,sr.Name);

}

} while (FindNext(sr) == 0);

FindClose(sr);
}

}

}
Screen->Cursor=crDefault;
Animate1->Active=false;

　　好了，程序代码加入完后，将各个组件排列一下，按F9再编译运行一次，这三种将目录树的结构装入TreeView中的方法，你比较喜欢那一种呢？自己比较一下吧。以上的程序在Win98/Win2000，Borland C++ Builder 6.0下运行通过。