If conn.State = 1 Then
conn.Close
End If
SourceFile = " " & App.Path & "\restaurant.mdb"
TargetFile = " " & App.Path & "\copy"
FileCopy SourceFile, TargetFile
错误的文件名或密码

restaurant.mdb是一个数据库,我想把它备份到copy文件夹下
错误的提示如上

非常感谢你呦

问题解决了，copy文件夹我已经提前 建好了
顺便问一句是不是每次退出时只是对这个库进行更新？

呵呵
我明白了
”你得用dir判断一下有没有这个目录存在，如果不存在，你得用mkdir建立一个目录“
可以给段代码吗？
谢谢