[VBA]如何判断一个文件或者文件夹是否存在

可以使用如下几个函数来判断
Function ExistsFile_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")
ExistsFile_UseFso = fso.FileExists(strPath)
Set fso = Nothing
End Function
Function FolderExists_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")
FolderExists_UseFso = fso.FolderExists(strPath)
Set fso = Nothing
End Function
Function FileOrFolderExists_UseDir(strPath As String) As Boolean
'注意，使用 DIR 函数来检测文件或者文件夹是否存在在局域网环境下
'由于访问权限问题可能会出错
If Dir(strPath) = "" Then
1和0

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

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