Access判断文件是否存在

在Access中，如何判断文件是否存在呢？相信这个我们很多地方都能用。

比如获取文件名做相关的操作，如果获取不到再做其他的处理。

这里我们自定义了一个判读文件是否存在的函数

Public Function PathIsExist(sPath As String) As Boolean
   
    If Dir(sPath) = "" Then
        PathIsExist = False
    Else
        PathIsExist = True
    End If
End Function

在窗体里调用函数：

Private Sub Command0_Click()
    PathIsExist (Me.Text1)
    If PathIsExist(Me.Text1) Then
        MsgBox "文件存在"
    Else
        MsgBox "文件不存在"
    End If
End Sub

如果文件存在

如果文件不存在