commondialog如何覆盖同名文件的问题
我使用ADOX创建ACCESS数据库文件,使用了commondialog,如何存在同名文件,虽然能出现是否覆盖的提示,但是如果我点了是,就会出现文件已经存在的错误。使用的代码如下Dim fm As String 'fm变量用来获取用户输入的文件名
CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.Path
CommonDialog1.Flags = &H2
CommonDialog1.Action = 2
If CommonDialog1.FileName = "" Then
MsgBox "你必须输入一个文件名,请重新保存一次!"
Exit Sub
Else
fm = CommonDialog1.FileName
End If
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Data Source=" & fm
cat.Create pstr '创建数据库
请大家指正错误之处,不胜感激。