Private Sub command1_click()
Dim NdataPath As String '原路径
Dim BdataPath As String '目的路径
databakename = Replace(CStr(Now), ":", "-")
NdataPath = App.Path + "\data\database.mdb" '输入要复制的文件路径,这个你可以修改
BdataPath = App.Path + "\databake\" + databakename + ".mdb" '同上,目的路径
FileCopy NdataPath, BdataPath '复制文件
End Sub
把目录调换一下就是还原