以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据备份  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141019)
--  作者：冷泉
--  发布时间：2019/9/19 15:44:00
--  [求助]数据备份

下面这个代码改成备份外部数据源mdb格式应该怎样修改了，麻烦老师指导下

备份

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    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)
    zip.ExtractAll(ProjectPath)
    zip.Close()
    msgbox("已恢复")
    \'Application.restart
End If
--  作者：有点蓝
--  发布时间：2019/9/19 16:03:00
--  
Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFile(ProjectPath & "外部数据源.mdb")
    zip.Close()
End If