将指定目录的结构装入TreeView中
2000-11-21 00:00:00·
符东亮·yesky
上一页 1 2 3 4 下一页
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-$#@62;AddChild(Num,"目录：" + sr.Name);
//调用函数本身，进入子目录
BrowDir(Nodes,PathName+sr.Name+"\\",Layel);
}
} while (FindNext(sr) == 0);
FindClo sr);
}
//列举所有文件
if (FindFirst(PathName+"*.*", faAnyFile, sr) == 0)
{
do
{
if(!(sr.Attr & faDirectory))
Nodes-$#@62;AddChild(Num,"文件：" + sr.Name);
} while (FindNext(sr) == 0);
FindClose(sr);
}
}
上一页 1 2 3 4 下一页 |
.