以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动备份问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126267)
--  作者：cyrollin
--  发布时间：2018/10/17 17:37:00
--  自动备份问题
参考了帮助： http://www.foxtable.com/webhelp/scr/0657.htm

生成的压缩文件，只是备份了项目文件 .table，images和attachments这几个文件和文件夹
我
想备份bin文件夹和其它文件或文件夹，需要怎么设置吗？
--  作者：有点甜
--  发布时间：2018/10/17 17:46:00
--  

写代码备份，如

 

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

 

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

 

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

 

 
--  作者：cyrollin
--  发布时间：2018/10/17 18:10:00
--  
恩， 好 的， 我在计划管理里面设置了 时间间隔，

代码：

Dim zip As New zipFile
Dim newname As String
NewName = Format(Date.Now(),"yyyyMMddHHmmss")
zip.Create("F:\\表A备份\\" & newname & ".zip")
zip.AddFolder("F:\\表A")
zip.Close()

这样可以自动生成按日期时间的ZIP文件名吧？
[此贴子已经被作者于2018/10/17 18:14:37编辑过]
--  作者：有点甜
--  发布时间：2018/10/17 18:19:00
--  

备份

 

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