递归问题,下面的代码可以读取,目录中的所有文件夹,哪位帮我改成,用treeview(用目录树)显示文件夹.谢谢!!!!!!!!!!!!

Private Sub Command1_Click()
    Dim fs As New FileSystemObject ' 建立 FileSystemObject
    Dim fd As Folder ' 定义 Folder 对象
    Dim sfd As Folder
    Set fd = fs.GetFolder("c:\")
    ListFolder fd
    End Sub

    Sub ListFolder(fd As Folder)
    Dim sfd As Folder
    For Each sfd In fd.SubFolders
    Debug.Print sfd.Path
    List1.AddItem sfd.Path
    ListFolder sfd ' 以 sfd 为参数，递归调用
    Next
    End Sub

14 个解决方案

#1

自己改不就得了？？
看看MSDN，你既然会用FSO，还有什么解决不了的
不就是递归吗：

#2

private function AddTreeNode(xPNode as Node,strFolder as String) as Node
set AddTreeNode=xpnode.add strFolder,……
end funciton
每次得到的父文件夹的节点AddTreeNode作为子文件夹的xPNode

#3

大致如下，没有vb，没调，你自己调吧。
dim lCount as long

Private Sub Command1_Click()
    Dim fs As New FileSystemObject ' 建立 FileSystemObject
    Dim fd As Folder ' 定义 Folder 对象
    Dim sfd As Folder

lCount=1
tvw.nodes.add ,,"k" & lCount,"c:\"
    Set fd = fs.GetFolder("c:\",lCount)
    ListFolder fd
End Sub

Sub ListFolder(fd As Folder,byval pCount as long)
    Dim sfd As Folder
    For Each sfd In fd.SubFolders
    Debug.Print sfd.Path
    List1.AddItem sfd.Path
lcount=lcount+1
tvw.nodes.add "k" & pcount,tvwChild,"k" & lCount,sfd.path

    ListFolder sfd,lcount ' 以 sfd 为参数，递归调用
    Next
End Sub

这里，tvw是一个treeview控件

#4

这几天发ooo所以ooo

#5

你大概是读了王国荣的书,却不能消化吧,唉!!!自已动一下手嘛.干嘛小问题也跑到这里来?

#6

不是了,我从没读过他的书,只是对treeview用的不太好了,自己改了一下,总是有些问题,所以才求救了,另外呢?递归的顺序不知道,所以用treeview时总是有问题,无法判断添加的tree是哪一个ROOT 里的.

#7

按照我上面的思路基本没问题，实际就是为每一个文件设置一个文件号，所以lCount是模块级公有的，然后以每个文件的文件号作为k值，但因为treeview的key不能为数字，所以在前面加了一个字符区别。

#8

'非常感谢这位朋友
'这位朋友,写得很不错,不过有点差错现将调试完成的,代码更改如下:
Dim lCount As Long

Private Sub Command1_Click()
    Dim fs As New FileSystemObject ' 建立 FileSystemObject
    Dim fd As Folder ' 定义 Folder 对象
    Dim sfd As Folder
lCount = 1
tvw.nodes.Add , , "k" & lCount, "d:\"
    '将原有的代码:
    'Set fd = fs.GetFolder("d:\",.lCount)
    'ListFolder fd
    '改成下面的代码就可以了
    Set fd = fs.GetFolder("d:\")
    ListFolder fd, lCount
End Sub

Sub ListFolder(fd As Folder, ByVal pCount As Long)
    Dim sfd As Folder
    For Each sfd In fd.SubFolders
    Debug.Print sfd.Path
    List1.AddItem sfd.Path
lCount = lCount + 1
tvw.nodes.Add "k" & pCount, tvwChild, "k" & lCount, sfd.Name

    ListFolder sfd, lCount ' 以 sfd 为参数，递归调用
    Next
End Sub
'tvw为treeview控件

#9

动态读取到TreeView：
http://www.fantasiasoft.net/Zyl910/DirList.zip

#10

点哪一个Node，再对其子节点枚举比较好。就像CSDN的导航栏

#11

回复人： pigpag(噼里啪啦) ( ) 信誉：117  2004-01-19 11:59:00  得分:0

  点哪一个Node，再对其子节点枚举比较好。就像CSDN的导航栏


=================================

我的程序就是的

#12

to goldstar3000(金星) ：
sorry，没有调试就给你了，手里倒是有vb了，但是我从来没有用过fso，所以，呵呵，找了半天没有找到fso的对象是哪个，所以，没有调就给你了。
反正你自己也调好了，目的达到了吧？

#13