一、通過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下使用,可自作成為宏或函數都可以。