老司机带带我悉尼大学:遍历文件夹并建成目录树 - VC知识库文章
来源:百度文库 编辑:偶看新闻 时间:2024/05/13 15:58:30
遍历文件夹并建成目录树
作者:北京林业大学 李少杰
前些日子,我在做程序中遇到这样一个问题,要用树型控件快速浏览指定文件夹中的文件,经过一番周折,终于做出来了,想到有些仁兄可能遇到和我相同的困难,所以将我的做法写出来,希望对大家有些帮助!
(本文程序运行效果图)
基本原理是用了函数的递归调用,再加入参数跟踪。我在调试程序的时候,跟踪发现:程序只有在遍历完一个目录下所有子目录后,才返回同级的目录。这样便可以用参数的值来决定目录的层次。
(1)在对话框上添加树型控件,选择Style中Has Buttons、Has Lines、Lines At Root。
(2)定义变量:
HTREEITEM strRoot; //根目录 HTREEITEM strHTFir;//第一层 HTREEITEM strHTSec;//第二层 HTREEITEM strHtThi;//第三层 HTREEITEM strHtFor;//第四层 HTREEITEM strHtFif;//第五层 // 没有找到更好的方法,所以只能这样来显示,估计一下大约能用到几层,如果找到好方法,请告诉我,非常感谢! HTREEITEM strHtEnd;//文件目录(3)添加遍历文件夹的函数BrowseFile(int CallNum, CString strFile)
//CalNum-用来记录第几层目录,strFile-路径
并添加以下内容:
void CFileTreeDlg::BrowseFile(int CallNum, CString strFile) { CallNum++; CFileFind ff; CString szDir = strFile; if(szDir.Right(1) != "\\") szDir += "\\"; szDir += "*.*"; BOOL res = ff.FindFile(szDir); while(res) { res = ff.FindNextFile(); if(ff.IsDirectory() && !ff.IsDots())//目录是文件夹 { //如果是一个子目录,用递归继续往深一层找 CString strPath = ff.GetFilePath(); //得到路径,做为递归调用的开始 CString strTitle = ff.GetFileTitle();//得到目录名,做为树控的结点 int i =0; switch(CallNum) { case 1: strHTFir = m_FileTree.InsertItem(strTitle,0,0,NULL); break; case 2: strHTSec = m_FileTree.InsertItem(strTitle,0,0,strHTFir); break; case 3: strHtThi = m_FileTree.InsertItem(strTitle,0,0,strHTSec); break; case 4: strHtFor = m_FileTree.InsertItem(strTitle,0,0,strHtThi); break; default: strHtFif = m_FileTree.InsertItem(strTitle,0,0,strHtFor); break; } BrowseFile(CallNum,strPath);//递归调用 } else if(!ff.IsDirectory() && !ff.IsDots())//到达最低层的文件 { //显示当前访问的文件 CString strPath; CString strTitle; strPath = ff.GetFilePath(); strTitle = ff.GetFileTitle(); switch(CallNum) { case 1: strRoot = m_FileTree.InsertItem(strTitle,0,0,NULL); break; case 2: strHtEnd = m_FileTree.InsertItem(strTitle,0,0,strHTFir); break; case 3: strHtEnd = m_FileTree.InsertItem(strTitle,0,0,strHTSec); break; case 4: strHtEnd = m_FileTree.InsertItem(strTitle,0,0,strHtThi); break; case 5: strHtEnd = m_FileTree.InsertItem(strTitle,0,0,strHtFor); break; default: strHtEnd = m_FileTree.InsertItem(strTitle,0,0,strHtFif); break; } } } ff.Close();//关闭 }(4)在OnInitDialog()函数中设置树控件的图标并调用自定义函数BrowseFile()
BOOL CFileTreeDlg::OnInitDialog() { m_iImageList.Create(24, 24, TRUE,1, 0);//创建图标链 HICON hIcon = NULL; hIcon = (HICON)::LoadImage(::AfxGetInstanceHandle(), MAKEINTRESOURCE(IDI_KEBIAO), IMAGE_ICON, 24, 24, 0); m_iImageList.Add(hIcon); m_FileTree.SetImageList ( &m_iImageList,TVSIL_NORMAL ); BrowseFile(0,"课程表");//遍历"课程表"文件夹内的所有目录 }(全文完)
{
HTREEITEM hTempItem;
....
//文件夹
hTempItem=m_FileTree.InsertItem(strTitle,0,0,hItem);
BrowseFile(hTempItem,strPath);
//文件
m_FileTree.InserItem(strTitle,0,0,hItem);
....
} ( zhonghaishan 发表于 2003-7-21 17:42:00)
if(CallNum==1)
suu[CallNum] = m_FileTree.InsertItem(strTitle,0,0,NULL);
else{
suu[CallNum] = m_FileTree.InsertItem(strTitle,0,0,suu[CallNum-1]);
}
BrowseFile(CallNum,strPath);
}
else if(!ff.IsDirectory() && !ff.IsDots())
{
//显示当前访问的文件
CString strPath;
CString strTitle;
strPath = ff.GetFilePath();
strTitle = ff.GetFileTitle();
if(CallNum==1)
suu[CallNum] = m_FileTree.InsertItem(strTitle,0,0,NULL);
else{
suu[CallNum] = m_FileTree.InsertItem(strTitle,0,0,suu[CallNum-1]);
}
}不知道这样改一下是不是能提高效率!!!!!!! ( byb 发表于 2003-4-8 17:20:00)
function.
good luck! ( proceedings 发表于 2003-4-2 20:35:00)
.......................................................
More...
想遍历文件夹并建成目录树,并且做成一个文本文档,如何做到那?
如何写一个遍历某一文件夹目录所有文件并在文件夹中写入文件列表(txt)的bat程序
遍历文件夹
怎样用asp实现遍历目录及目录下文件,并可以简单下载?
ASP遍历目录问题
vc++ 做的二叉树建立和遍历
怎遍历HashMap并打印?
我的木马防火墙经常提示我Windows目录有新文件夹建成是什么意思?
C# 遍历文件夹的源代码
求用vc++编写:建立一棵二叉树,用某种遍历算法(先根,中根或后根)对二叉树进行遍历,输出某遍历
复制目录下所有文件及子目录到另一文件夹,并保持同样的目录结构
NTFS权限中“遍历文件夹”是什么意思?
二叉树遍历程序
C#遍历树
二叉树的遍历
二叉树遍历问题
二叉树的遍历
使用递归编写文件和目录几子目录遍历
请问谁能给出 生成如下二叉树,并得出先序遍历结果的C程序
请问谁能给出 生成如下二叉树,并得出先序遍历结果的C程序
怎么用vb建立二叉树,并实现先.中.后序遍历和线索化?
关于二叉树的遍历
有关二叉树的遍历
哪里有VC知识库的5周年精华珍藏版光盘下载?