excel用 vba判斷檔案是否存在

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