主题：自动备份问题

写代码备份，如

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

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

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

备份

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.DeleteDirectory("d:\test", 2, 2)
    FileSys.CopyDirectory(ProjectPath, "d:\test")
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder("d:\test")
    zip.Close()
End If

还原

Dim dlg As new OpenFileDialog
dlg.Filter = "压缩文件|*.zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Open(dlg.FileName)
    FileSys.DeleteDirectory("d:\test", 2, 2)
    zip.ExtractAll("d:\test")
    FileSys.CopyDirectory("d:\test", ProjectPath,True)
    zip.Close()
    msgbox("已恢复")
    'Application.restart
End If