急！急!急!access备份问题，高手请进！

[wamlaw]

在access97环境中作vba.
想备份当前数据库（整个工程包括数据表都在这个start.mdb中），界面设计为点击按钮将整个mdb备份出来，使用
.............
filecopy "d:\work project\start.mdb","d:\bak.mdb"
.............

出现错误'70';
请问如何解决？如果这个方法不行，那如何事件相应功能？

多谢了！

[饮水需思源]

filecopy "d:\workpr~1\start.mdb","d:\bak.mdb"
这样试试

[jadehong]

在此之前你要引用……runtime ……
On Error Resume Next
Dim filesystemobject As Object
Set filesystemobject = CreateObject("scripting.filesystemobject")
Cdg1.Filter = "筑龙备份文件(*.ZL)|*.ZL"
Cdg1.ShowSave
Dim fname As String
fname = Cdg1.FileName
If fname <> "" Then
filesystemobject.CopyFile App.Path & "\data\zlgys.ZL", fname
MsgBox "备份成功！请将[" & fname & "]文件保存好！", vbOKOnly + vbInformation
End If

[wamlaw]

上面的方法不行啊，我试了。是'70'读写错误
:(

[jadehong]

我是扩展为。ZL的文件，你换成.MDB就可以了，
建议你在备份之前要压缩数据库。
引用JRO
Dim JRO3 As JRO.JetEngine
Set JRO3 = New JRO.JetEngine
JRO3.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=jcrj;Data Source=" & App.Path & "\sjcl.zl", _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=jcrj;Data Source=" & App.Path & "\sjcl2003.zl"
Kill App.Path & "\sjcl.zl"
Name App.Path & "\sjcl2003.zl" As App.Path & "\sjcl.zl"

[wamlaw]

谢谢！