如何利用VBA获取文件夹里边word文件个数

下面的代码在我电脑上执行通过，希望对比编程有所借鉴：

Option Explicit
Sub YgB()
    Dim n, f
    n = 0
    f = Dir("d:\我的文档\exp\*.doc*")
    While f <> ""
        n = n + 1
        f = Dir
    Wend
    MsgBox "总共有" & n & "个WORD文件"
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2feyv2xev2jxvr3efj.html