vba 遍历文件夹（利用Dir函数）

Dim path As String  '外部文件夹路径
path = "F:\vba"

'当不确定路径的最后一位是不是"\"时，可以用如下代码判断：
If Right(path , 1) <> "\" Then
       path = path & "\"
End If

'遍历文件夹，获取以".xlsx"结尾的文件
    
    Dim count As Integer
    Dim name As String
    Dim file As String
    count = 0
    name = Dir(path & "*.xlsx")
    Do While Len(name) <> 0
        
        file = path + name
        '处理...
        '处理...
        '处理...
        
        '获取文件夹中下一个符合条件的文件名
        count = count + 1
        For i = 0 To count
            If i = 0 Then
                name = Dir(path & "*.xlsx")
            Else
                name = Dir
            End If
        Next
        
    Loop

本来获取文件夹中下一个符合条件的文件名只需要 name = Dir 即可，但是这样写的时候，获取到的是name = ""。

因为在处理中又用到了Dir函数，所以用这种迂回的方式遍历文件夹。