Tree的使用 浏览目录。然后该目录所以文件夹子文件夹树形表示

应该是没有。

典型的递归函数，没有返回值的递归
伪代码如下
'c1是文件夹层数，方便用树型控件添加目录能知道层次
dim c1 as interger
c1 =0
showFile(文件夹入口,c1)
'===递归函数===
public sub showFile(pathName as String,byref c1 as intrger)
dim c as integer
'c用于记录某次递归中的层数
c=c1
,判断pathName是路径还是文件
if 是文件 then
添加到树 c,pathName 对应图标改成文件
else 是文件夹 then
添加到树 c,pathName 对应的图标改成文件夹
c1=c1+1
遍历文件夹下的所有目录和文件
循环开始
showFile(遍历的目录或者文件,c1)
循环结束
end if
end sub

遍历文件夹所有的文件和判断是不是文件夹百度就有。
主要就是递归，是文件就添加，是文件夹不仅仅添加，还需要遍历，对遍历出来的所有路径再做相同的检测也就是递归
难点就是树型控件添加节点的层次标记
用了c1 和 c
相当于c1是全局变量，函数中是按地址传递的
c是局部变量，当函数出栈，c会保留调用它那次的，层次。
我手机写的没有调试，可能有问题，但是大致思路是这样

递归函数有点绕，把层次弄清楚就可以。让程序知道调用它的是哪一层。节点名字规范一点，知道了层次就知道父节点的名字，就能添加到这个父节点下

还有，就是这个思路是不会错的，我用java写过遍历文件夹就是这种思路，控制台下的文件夹树型结构，一样的，只是你添加了树型控件，无非就是层次的另一种体现方式。

典型的递归函数，没有返回值的递归
伪代码如下
'c1是文件夹层数，方便用树型控件添加目录能知道层次
dim c1 as interger
c1 =0
showFile(文件夹入口,c1)
'===递归函数===
public sub showFile(pathName as String, c as intrger)
dim c as integer
,判断pathName是路径还是文件
if 是文件 then
添加到树 c,pathName 对应图标改成文件
else 是文件夹 then
添加到树 c,pathName 对应的图标改成文件夹
c=c+1
遍历文件夹下的所有目录和文件
循环开始
showFile(遍历的目录或者文件,c)
循环结束
end if
end sub