＋设为首页 ＋添加到收藏夹
比较难的问题：如何实现遍历硬盘中的所有文件夹和文件？
sub listadriv[遍历驱动器，可以参看MSDN的示例代码]
On Error Resume Next
Dim d,dc,s
Dim fso As New FileSystemObject
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path & "\")
end if
Next
listadriv = s
end Sub
-------------------
假如你要做的是资源管理器式的东西的话,也就是要结构如资源管理器,那么涉及到TREEVIEW
和LISTVIEW,对文件夹的浏览可以用一个第归算法实现,
需要的话我可以给你原代码,目前也刚刚做完这个.
xiao_yi@163.com
发地址到这儿!
主要就是两种算法：树形深度优先遍历和广度优先遍历。
MSDN的VB例程里面有WinSeek程序，你看了就明白了。
