曾经做过一个,但是过程比较长就不贴了。主要是要用递归: 有一个驱动器控件,文件控件,目录控件。 在驱动器中读入一个驱动器,列出目录清单,然后读出此清单中文件 loadDir(目录名) 然后循环loadDir(新目录名)private sub loadDir(dirName as string ) '读出此目录文件 '加入到树形中 ...... '读出此目录下目录列表 do while not (目录列表没有到最后) '加入到树形中 ...... loadDir 新的目录名 '需要递归 loop end sub
http://community.csdn.net/Expert/topic/3020/3020237.xml?temp=.9179193
有一个驱动器控件,文件控件,目录控件。
在驱动器中读入一个驱动器,列出目录清单,然后读出此清单中文件 loadDir(目录名)
然后循环loadDir(新目录名)private sub loadDir(dirName as string )
'读出此目录文件
'加入到树形中
......
'读出此目录下目录列表
do while not (目录列表没有到最后)
'加入到树形中
......
loadDir 新的目录名 '需要递归
loop
end sub