VBA 遍历文件夹并统计文件数量

以下是使用 VBA 遍历文件夹内包含的文件数量的示例代码：

Sub countFilesInFolder()
    Dim folderPath As String
    Dim filesCount As Integer
    folderPath = 'C:\Users\username\Desktop\FolderName\' '更改为您要遍历的文件夹路径
    filesCount = 0 '计数器
    If Right(folderPath, 1) <> '\' Then folderPath = folderPath & '\'
    If Dir(folderPath, vbDirectory) <> vbNullString Then
        Dim fileName As String
        fileName = Dir(folderPath & '*.*', vbNormal)
        Do Until fileName = vbNullString
            If Left(fileName, 1) <> '.' Then filesCount = filesCount + 1 '忽略隐藏文件
            fileName = Dir()
        Loop
    End If
    MsgBox '文件夹' & folderPath & '内包含 ' & filesCount & ' 个文件。'
End Sub

您可以将folderPath变量更改为您要遍历的文件夹路径。该代码将计算该文件夹中的所有文件的数量，并在消息框中显示结果。请注意，此代码不会递归遍历子文件夹中的文件。