vba读取指定文件夹的所有文件夹

“当前路径”指的是什么的当前路径？
在Office应用程序（如Word或Excel等）中当前打开的文档所在的路径？还是Office这个应用程序所在的路径。
如果传入一个“”，好象默认是返回“我的文档”中的第一个文档。所以那个.classPath可能就是你机器上“我的文档”中的第一个文件的文件名。

下面这个函数用MsgBox显示给定目录下的所有文件名：

Function EnumAllFiles(strPathName As String)
Dim strFileName As String
strFileName = Dir(strPathName & "*.*")
While strFileName <> ""
If MsgBox("文件名是 " & strFileName & ". 是否继续枚举？", vbDefaultButton1 Or vbYesNoCancel Or vbQuestion) <> vbYes Then Exit Function
strFileName = Dir
Wend
End Function