VB枚举某一个目录下的全部文件夹

Public Sub FileSearch(ByVal sPath As String)

Static lngFiles As Long

Dim sDir As String

Dim sSubDirs() As String

Dim lngIndex As Long

Dim lngTemp&

DoEvents

If Right(sPath, 1) <>"\" Then sPath = sPath &"\"

DoEvents

lngIndex = 0

sDir = Dir(sPath &"*.*", vbDirectory)

Do While Len(sDir)

If Left(sDir, 1) <>"." And Left(sDir, 1) <>".." Then

If GetAttr(sPath &sDir) And vbDirectory Then

lngIndex = lngIndex + 1

ReDim Preserve sSubDirs(1 To lngIndex)

sSubDirs(lngIndex) = sPath &sDir &"\"

List1.AddItem sSubDirs(lngIndex)

DoEvents

End If

End If

sDir = Dir

Loop

End Sub

Private Sub Command1_Click() '测试代码

FileSearch "d:\" '设置初始路径

End Sub

'添加一个按钮，一个列表框，效果很好的，不明白的加我百度HI

用FolderObject对象、什么乱七八糟的集合、什么Scripting.FileSystemObject一大堆，然后用For Each遍历集合，就行啊！

在网上搜吧！

不会就问我。