Public Sub BackUp()
Dim fsoTest As New Scripting.FileSystemObject
CommonDialog1.CancelError = True
'On Error GoTo errhandler
With CommonDialog1
.DialogTitle = "备份数据库"
.CancelError = False
.Flags = cdlOFNHideReadOnly
.Filter = "数据库文件 (*.mdb)|*.mdb"
.ShowSave
End With
fsoTest.CopyFile App.Path + "\Data\FileSystem.mdb", CommonDialog1.FileName
MsgBox "备份完毕", vbOKOnly, "确认信息"
Exit sub
'errhandler:
End Sub
前几天用得还好好的，
它做到 fsoTest.CopyFile App.Path + "\Data\FileSystem.mdb", CommonDialog1.FileName
就直接到Exit sub im 没有做 MsgBox "备份完毕", vbOKOnly, "确认信息"
（一百个想不明白）
后这几天我装了个Crystal Report 9
mdac_typ.exe(XP下没有装上去)
还有就是我的Access数据库加一个密码，
会是那个的问题呢，大家给我想一下吧