Private Sub CmdNew_Click()
On Error Resume Next
CommonDialog1.DialogTitle = ""
CommonDialog1.Filter = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Else: Set MyDatabase = Workspaces(0).CreateDatabase(CommonDialog1.FileName, dbLangGeneral)
CmdAddTab.Enabled = True
CmdAddTab.SetFocus
End If
End Sub
我用这个语句创建一个数据库文件,我想知道如何实现,如果我创建的数据库已经存在如何弹出一个框子显示"你所要创建的数据库已经存在,是否覆盖",然后你根据需要选择条件得到相应的结果,哪位大虾帮帮我啊,这个问题我好久了都没解决,给我发个代码吧,非常感谢!!!

if Len(dir("文件名+全路径")) then
  文件存在
end if

还能在清楚点啊,谢谢