我們主要使用VBA中的Dir方法來判斷文件是否存在。
Dir函數返回的是文件名、目錄名或文件夾名稱。
這里還使用了Len方法判斷Dir是否返回了結果。
如果Dir返回的值長度為0，則Dir沒有返回文件名。
Sub Run()
Dim filePath As String
filePath = "C:\Users\Administrator\Desktop\Merge_Sheet\test.txt"
If IsFileExists(filePath) = True Then
' 文件存在時的處理
MsgBox "文件存在！"
Else
' 文件不存在時的處理
MsgBox "文件不存在！"
End If
End Sub
'函數名：IsFileExists
'接受參數：strFileName → 需判斷是否存在的文件的完整路徑
'返回值：Boolean → 存在返回True，不存在返回False
Private Function IsFileExists(ByVal strFileName As String) As Boolean
If Len(Dir(strFileName)) <> 0 Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function
————————————————
版權聲明：本文為CSDN博主「慕琦琦」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/wangzz0427/article/details/86768431