Vb6如何遍历文件夹中的文件夹

在VB6（Visual Basic 6）中，遍历文件夹中的文件夹通常通过`Directory`和`File`对象以及循环结构来完成。这里是一个基本的示例，展示如何递归地访问目录树：

Private Declare Function FindFirst Lib "Shell32" (ByVal lpName As String, ByVal dwFlags As Long) As Long
Private Declare Function FindNext Lib "Shell32" (ByVal hFindData As Long) As Long
Private Declare Function FindClose Lib "Shell32" (ByVal hFindData As Long) As Long

Sub TraverseFolder(ByVal rootPath As String)
    Dim fso As Object ' 使用FileSystemObject对象
    Dim folder As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 创建查找句柄
    Dim findHandle As Long
    findHandle = FindFirst(rootPath & "\*", &H1F & 0x00 ' 使用SHGFI_DIRNOWILDcards常量，跳过*.*
    
    ' 如果找到目录
    If findHandle <> -1 Then
        Do While True
            Set folder = fso.GetFolder(FindNext(findHandle))
            
            ' 打印目录路径
            Debug.Print folder.Path
            
            ' 检查是否还有子目录
            If folder.SubFolders.Count > 0 Then
                TraverseFolder folder.Path ' 递归遍历子目录
            End If
            
            ' 继续寻找下一个
        Loop
    
        ' 关闭查找
        FindClose findHandle
    Else
        MsgBox "无法打开指定路径", vbCritical
    End If
End Sub

要使用这个函数，只需调用`TraverseFolder`并传入你要开始遍历的根目录路径。