vba dir 遍历文件夹

VBA中的Dir函数可以用于遍历文件夹并获取文件名或文件夹名。它的基本语法如下：

Dir([路径], [属性])

其中，路径是要遍历的文件夹路径，属性是一个可选参数，用于指定要返回的文件或文件夹的类型。属性可以是以下常量之一：

- vbNormal：普通文件
- vbDirectory：文件夹
- vbHidden：隐藏文件
- vbReadOnly：只读文件
- vbArchive：存档文件

如果不指定属性参数，则Dir函数默认返回普通文件和文件夹。

下面是一个示例代码，演示如何使用Dir函数遍历文件夹并输出文件名：

Sub TraverseFolder()
    Dim folderPath As String
    Dim fileName As String
    
    folderPath = "C:\YourFolderPath\" ' 替换为你要遍历的文件夹路径
    
    fileName = Dir(folderPath)
    
    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir
    Loop
End Sub

在上面的示例中，我们首先指定要遍历的文件夹路径，然后使用Dir函数获取第一个文件或文件夹的名称。然后，我们使用一个循环来遍历剩余的文件或文件夹，并输出它们的名称。每次循环结束后，我们再次调用Dir函数来获取下一个文件或文件夹的名称，直到没有更多的文件或文件夹为止。

希望以上信息对您有所帮助！