如何遍历某文件夹下的所有文件夹（不要求遍历文件），并一一列出？

[xiaoyi1979]

如何遍历某文件夹下的所有文件夹（不要求遍历文件），并一一列出？
比如我要遍历c:\test\的所有文件夹（不包括文件），
在combo1中把文件夹一一列出

[射天狼]

Option Explicit

Private Sub Command1_Click()
'在窗口中添加一个DirListBox控件

Dim i As Long

Dir1.Path = "C:\"
For i = 0 To Dir1.ListCount - 1
MsgBox Dir1.List(i)
Next
End Sub

[xiaoyi1979]

你这个程序只能遍历一层，我要遍历所有层！
包括文件夹的子文件夹

[wx05]

用递归调用一下

[lxcc]

Public Sub ShowFloder(strDir As String, objDir As Object)
On Error Resume Next
Dim lngCount As Long
Dim i As Long
Dim strPath As String


With objDir
.Path = strDir
lngCount = .ListCount
For i = 0 To lngCount - 1
.Path = strDir

strPath = .List(i) ''取得当前子目录

Call AddItemToList(strPath, List1) ''添加到ListBox中

Call ShowFloder(strPath, objDir) ''递归寻找
Next
End With
End Sub

''加载数据到ListBox
Private Sub AddItemToList(ByVal strText As String, ByRef objList As Object)
objList.AddItem strText
End Sub

Private Sub Command1_Click()
Call ShowFloder("c:\", Dir1)
MsgBox List1.ListCount
End Sub

[lxcc]

速度慢！
最好改改初始目录

[lxcc]

Public Sub ShowFloder(strDir As String, objDir As Object)
On Error Resume Next
Dim lngCount As Long
Dim i As Long
Dim strPath As String


With objDir
.Path = strDir
lngCount = .ListCount
For i = 0 To lngCount - 1
.Path = strDir

strPath = .List(i) ''取得当前子目录

Call AddItemToList(strPath, List1) ''添加到ListBox中

Call ShowFloder(strPath, objDir) ''递归寻找
Next
End With
End Sub

''加载数据到ListBox
Private Sub AddItemToList(ByVal strText As String, ByRef objList As Object)
objList.AddItem strText
End Sub

Private Sub Command1_Click()
Call ShowFloder("c:\test", Dir1)
MsgBox List1.ListCount
End Sub