- 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=106082)
-- 发布时间：2017/9/1 17:05:00
-- 如何备份
请问老师，关于备份和恢复几个问题请教：
1、在系统事件中写代码询问是否要备份，需要备份，请问可以放在此项目的文件夹里backup下
2、若通过设置两个按键，一个系统备份、一个系统恢复，请问两个按键代码如何？请帮忙！
3、这个就是关于用户登陆情况，请看图，如何不显示。
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题.png-- 发布时间：2017/9/1 18:10:00
--
备份
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
-- 发布时间：2017/9/1 18:11:00
--
3、不是可以设置的么？
http://www.foxtable.com/webhelp/scr/2729.htm
-- 发布时间：2017/9/3 8:47:00
-- 点击恢复后，出现如下提示见图：
点击恢复后，出现如下提示见图：
-- 发布时间：2017/9/3 11:42:00
--
没看到你上传的图片，请正确上传。