vba dir 判断文件是否存在

我们主要使用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