亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox("是非要备份？",vbQuestion + vbYesNo,"提示") = vbYes ThenFileCopy "d:\project\access\mydb.mdb","d:\project\acce

亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox("是非要备份？",vbQuestion + vbYesNo,"提示") = vbYes ThenFileCopy "d:\project\access\mydb.mdb","d:\project\acce
亲,在吗,还有一个问题想问你,
vb 数据备份代码'*** 实现数据备份的过程 ***
Private Sub double_Click()
If MsgBox("是非要备份？",vbQuestion + vbYesNo,"提示") = vbYes Then
FileCopy "d:\project\access\mydb.mdb","d:\project\access\mydb.bak"
End If
End Sub
Private Sub getback_Click()
'*** 实现数据恢复的过程 ***
FileCopy "d:\project\access\mydb.bak","d:\project\access\mydb.mdb
End Sub
提示拒绝的权限，那文件夹只读属性改不了。

亲,在吗,还有一个问题想问你,vb 数据备份代码'*** 实现数据备份的过程 ***Private Sub double_Click()If MsgBox("是非要备份？",vbQuestion + vbYesNo,"提示") = vbYes ThenFileCopy "d:\project\access\mydb.mdb","d:\project\acce
1.有可能那文件正在被使用,这个问题要具体问题具体方法解决
2.文件的属性是只读,修改这个文件的属性
3.文件夹的属性是只读,修改这个文件夹的属性
如果用VB去修改属性 可以使用API函数SetFileAttributes

什么问题？乐意解答

什么问题。。。。

尝试下 腾讯 电脑 管家 的电脑门诊
楼主只需鼠标左键“点此解决”按钮，
就可看到弹出的界面会用浅显易懂的文字详细罗列出故障现象，
如果确认自己遇到的问题与之相对，点击“立即处理”
按钮程序将自动修复遇到的电脑故障。