vba dir函数如何循环提取子文件夹下的所有文件

在VBA (Visual Basic for Applications) 中，`Dir()` 函数用于列出指定路径下当前目录下的文件。如果你想遍历子文件夹并提取其中的所有文件，你可以结合 `Dir()` 和 `Do While...Loop` 循环结构一起使用。下面是一个简单的例子：

Sub ListFilesInSubfolders()
    Dim folderPath As String
    Dim filePath As String
    Dim subFolder As String
    Dim fileExtension As String ' 如果你想限制特定类型的文件
    
    ' 设置初始路径
    folderPath = "C:\YourFolderPath" ' 替换为你需要搜索的根目录

    ' 设置文件扩展名过滤 (如果你有需求)
    fileExtension = "*.txt" ' 可以换成其他如".doc", ".xlsx"

    ' 初始化子文件夹名
    subFolder = Dir(folderPath & "\*")
    
    Do While subFolder <> "" ' 当有文件夹存在时循环
        filePath = folderPath & "\" & subFolder ' 构建完整子文件夹路径
        
        If Right(filePath, 1) <> "\" Then ' 确保不是下一个子文件夹名而是文件
            If Dir(filePath & fileExtension) <> "" Then ' 判断是否存在指定扩展名的文件
                Debug.Print filePath ' 或者在这里添加你的处理逻辑，比如复制、移动等操作
            End If
        End If
        
        ' 获取下一个子文件夹名
        subFolder = Dir()
    Loop
    
    ' 结束循环后清空临时变量
    Set subFolder = Nothing
End Sub

这个脚本会递归地检查每个子文件夹，并查找指定扩展名的文件。记得替换 `folderPath` 为你要开始搜索的实际路径。