Access判断文件是否存在

2017-11-27 14:12:00
黄善超
原创
101

在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



如果文件存在


如果文件不存在

    分享