下面的代码在我电脑上执行通过，希望对比编程有所借鉴：
Option ExplicitSub YgB() Dim n, f n = 0 f = Dir("d:\我的文档\exp\*.doc*") While f <> "" n = n + 1 f = Dir Wend MsgBox "总共有" & n & "个WORD文件"End Sub
