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 判斷下