求教用一个Treeview做一个Windows资源管理器

[tcrct]

用一个树视图实现一个资源管理器:

请问如何才知道一个父目录下到底有多少个子目录呢?而一个子目录下又包含有多少个子目录呢?即一个父目录下到底包含了多少层子目录?而每一层的子目录下如何区分出是一个目录还是一个文件呢?如果是一个目录的话,就进入到下一层目录,如此类推,直至到最底层.
以上功能的实现要使用到那个部件或引用?请各位举例说明!谢谢!

[蒋晟]

http://ccrp.mvps.org/controls/ccrpcontrols.htm

[lc_mtt]

其实用TreeView实现资源管理器的思路也比较简单,但绝对不是一开始就把整个硬盘的目录树都加载进TreeView中,而是先加载最外层目录,在某个目录的展开事件中,实时加载其子目录,并保存一个Flag,下次展开的时候将不用再加载.

[faysky2]

请问如何才知道一个父目录下到底有多少个子目录呢?而一个子目录下又包含有多少个子目录呢?即一个父目录下到底包含了多少层子目录?而每一层的子目录下如何区分出是一个目录还是一个文件呢?如果是一个目录的话,就进入到下一层目录,如此类推,直至到最底层.
-------------------------------------------------------------------
对目录进行遍历即可：

请参考 ：获取某目录下的所有子目录路径及名称和文件的路径及名称

Public Sub SeachFile(ByVal strPath As String)
Dim Fso As Object
Dim Fol As Object
Dim Fil As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fol = Fso.GetFolder(strPath)

For Each Fil In Fol.Files
Debug.Print Fil.Path '打印路径及文件名
Debug.Print Fil.Name '打印文件名
Next
For Each Fol In Fol.subfolders
Debug.Print Fol.Path '打印子目录的路径及名称
Debug.Print Fol.Name '打印子目录的名称
SeachFile Fol
Next
End Sub

Private Sub Command1_Click()
SeachFile ("C:\Test\")
End Sub