VB写一个判断

来源：百度知道 编辑：UC知道 时间：2024/06/16 00:48:44
判断程序的位置.
如果程序没在这个位置时，就弹出一个msgbox..

我要的判断是这个程序所在的位置一个data目录里是否存在save.mdb文件

比如save.mdb存在于D:\Mysoft\data\save.mdb
如果这个程序没在D:\Mysoft\目录，就弹出msgbox

Private Sub Form_Load()
Dim Path As String
Path = IIf(Len(App.Path) > 3, App.Path & "\", App.Path)
If Dir(Path & "Data\save.mdb") = "" Then
MsgBox "不存在"
Else
MsgBox "存在"
End If
End Sub

if not FileExists("D:\Mysoft\data\save.mdb") then msgbox("no found!!")

程序和data在一个文件夹时：
If Dir("Data\save.mdb") = "" Then
MsgBox "不存在"
Else
MsgBox "存在"
End If

程序和data不在一个文件夹时：
If Dir("D:\Mysoft\data\save.mdb") = "" Then
MsgBox "不存在"
Else
MsgBox "存在"
End If