主题：数据库备份与还原

备份

 

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

Dim dlg As new OpenFileDialog        '还原
If dlg.ShowDialog = DialogResult.OK Then
     FileSys.CopyFile(dlg.FileName, ProjectPath , True)
End If
这样代码对吗？

不对，http://www.foxtable.com/webhelp/scr/0342.htm

系统恢复是不是必须是压缩包吗？压缩包不是只要指定压缩包的名称就能恢复吗？ 如果要恢复某一个非压缩文件夹下的所有文件怎么选择呢？

参考：http://www.foxtable.com/webhelp/scr/0343.htm

 

那就选择文件夹

 

http://www.foxtable.com/webhelp/scr/0359.htm

 

http://www.foxtable.com/webhelp/scr/0343.htm

 

老师恢复某一个非压缩文件夹下的所有文件怎么做不了呢？

看36楼。

 

Dim dlg As new FolderBrowserDialog
If dlg.ShowDialog = DialogResult.OK Then
     FileSys.CopyDirectory(dlg.SelectedPath, ProjectPath &"\date", True)
End If

Dim dlg As new FolderBrowserDialog
If dlg.ShowDialog = DialogResult.OK Then
     FileSys.CopyDirectory(dlg.SelectedPath, ProjectPath &"\date", True)
End If

 

怎么恢复不了呀？是一个空文件夹

 

 

 

代码没问题，肯定是你选择的文件夹为空