1、通过FileExists判断文件是否存在
Dim MyFile As Object
Set MyFile = CreateObject(“Scripting.FileSystemObject”)
If MyFile.FileExists(“E:dzwebsPiclogo.gif” ) = True Then
MsgBox “文件存在”
Else
MsgBox “文件不存在”
End If
以上代码在VBA环境下使用。或者将其制作成为宏也可以。”E:dzwebsPiclogo.gif”为文件路径及文件名称，可自行修改。
二、通过Dir来判断
Dim YouFile As String
YouFile = Dir(“E:MyPicturesPiclogo.gif”)
If x <> “” Then
MsgBox “文件存在”
Else
MsgBox “文件不存在”
Endif
“E:MyPicturesPiclogo.gif”为文件路径及文件名称，可自行修改。当然，如上代码，也在VBA下使用，可自作成为宏或函数都可以。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
