- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 备份 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129896)
-- 发布时间：2019/1/8 13:37:00
-- 备份
[此贴子已经被作者于2019/1/8 13:49:01编辑过]
-- 发布时间：2019/1/8 15:00:00
--
具体一点你的问题。
-- 发布时间：2019/1/10 13:08:00
--
Dim fName = "\\\\172.17.57.200\\jsdlzb-pub\\质保办\\质量管理信息系统数据备份\\" & format(Date.now, "yyyyMMddHHmmss")
FileSys.CopyDirectory("\\\\172.17.57.200\\jsdlzb-pub\\质保办\\质量管理信息系统", fname, True)
Dim zip As New zipFile
zip.Create(fname & ".zip")
zip.AddFolder(fname)
zip.Close()
自动备份时会出现错误提示
此主题相关图片如下：捕获.jpg
-- 发布时间：2019/1/10 15:08:00
--
卸载重新安装一下你的zip软件，比如安装 winzip 看看。
-- 发布时间：2019/1/21 17:12:00
--
Dim fName = "\\\\172.17.57.200\\jsdlzb-pub\\质保办\\质量管理信息系统数据备份\\" & format(Date.now, "yyyyMMddHHmmss")
FileSys.CopyDirectory("\\\\172.17.57.200\\jsdlzb-pub\\质保办\\质量管理信息系统", fname, True)
Dim zip As New zipFile
zip.Create(fname & ".zip")
zip.AddFolder(fname)
zip.Close()
此主题相关图片如下：捕获.jpg
开发程序备份没有问题，但发布后，用户登录保存后，不会自动备份，是什么原因？
[此贴子已经被作者于2019/1/21 17:12:25编辑过]
-- 发布时间：2019/1/21 17:35:00
--
应该是没有权限操作共享目录。开放所有的权限
-- 发布时间：2019/1/28 14:36:00
--
在计划管理里怎样编写代码，使备份文件自动覆盖旧文件，让备份文件数量始终保持在50份，50份以后会每生成一份备份时，自动覆盖最早的一份？
-- 发布时间：2019/1/28 16:29:00
--
获取目录里的文件数量：http://www.foxtable.com/webhelp/scr/0341.htm
根据需要删除前面多余的文件：http://www.foxtable.com/webhelp/scr/0338.htm