vb备份代码

Private Sub munSJBF_Click() 
On Error GoTo ERR_line 
newname = App.Path & "/data/data.cc" 
datapath = App.Path & "/backup/" & Date & " 备份卡.bak" 
FileCopy newname, datapath 
MsgBox "数据已备份到 " & datapath, 64, "提示" 
Exit Sub 
ERR_line: 
MsgBox "不能完成数据备份！", 48, "运行错误" 
End Sub 

Private Sub munSJHY_Click() 
On Error GoTo ERR_line 
Me.CommonDialog1.ShowSave 
snewname = Me.CommonDialog1.FileName 
sdatapath = App.Path & "/data/data.cc" 
If snewname <> "" Then 
If MsgBox("还原后将覆盖原有数据，确定还原吗?", vbInformation + vbYesNo, "提示") = vbYes Then 
FileCopy sdatapath, snewname ’ 

MsgBox "数据已经成功还原！请重新登陆 ", 48, "提示" 
Unload Me 
frmLogin.Show 
Else 
Exit Sub 
End If 
End If 
Exit Sub 
ERR_line: 
MsgBox "不能完成数据还原，请进入系统后未做任何操作时进行！", 48, "运行错误" 
End Sub

data  backup 确保这个文件夹存在
先用 if dir("文件夹路径",vbDirectory)<> then 判断下