获得某个文件夹下的所有子目录

获得某个文件夹下的所有子目录
 

下面的函数演示如何获得某个文件夹下的所有子目录

Public Sub HaalDirOp(ByVal Path$)
Dim vDirName As String, LastDir As String

Screen.MousePointer = vbHourglass

If Right(Path$, 1) <> "\" Then Path$ = Path$ & "\"
vDirName = Dir(Path, vbDirectory) ' Retrieve the first entry.

Do While Not vDirName = ""
If vDirName <> "." And vDirName <> ".." Then

If (GetAttr(Path & vDirName) And vbDirectory) = vbDirectory Then
LastDir = vDirName

MsgBox vDirName

Call HaalDirOp(Path$ & vDirName)

vDirName = Dir(Path$, vbDirectory)

Do Until vDirName = LastDir Or vDirName = ""
vDirName = Dir

Loop
If vDirName = "" Then Exit Do

End If
End If

vDirName = Dir
Loop

Screen.MousePointer = vbNormal
End Sub