主题：数据库备份与还原

备份

Dim dlg As new SaveFileDialog
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".mdb"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyFile(ProjectPath &"\date\123.mdb" , dlg.FileName, True)
End If

还原

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
     FileSys.CopyFile(dlg.FileName, ProjectPath &"\date\123.mdb", True)
End If