vba读取指定文件夹的所有文件夹
发布网友
发布时间:2022-05-13 18:02
我来回答
共1个回答
热心网友
时间:2023-10-19 11:48
“当前路径”指的是什么的当前路径?
在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