| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [讨论]关于自动生成“在线升级包” (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44963) |
| -- 作者：54kang -- 发布时间：2014/1/13 8:40:00 -- [讨论]关于自动生成“在线升级包” 每次发布，制作在线升级包都要重复相同的步骤，想了办法“自动”一点：方案如下，希望大家提提意见。 新建一按钮，软件发布后执行。代码如下： Dim zip As New zipFile Dim dir1 As String="C:\\" \'************本地临时目录 为了提高速度 先压缩到本地 Dim dir2 As String="\\\\serverk2\\update" \'************局域网升级目录 系统属性内设定 Dim zFile As String = dir1 & "\\update.zip" If FileSys.FileExists(zfile) Then \'如果压缩文件已经存在 zip.Open(zFile) \'则打开 Else zip.Create(zFile) \'否则创建 End If zip.AddFolder("D:\\FOXTABLE\\ZBS\\X5\\Publish\\Project") \'*******压缩 zip.Close() FileSys.CopyFile(dir1 &"\\update.zip" ,dir2 &"\\update.zip",True) \'***********复制到服务器 messagebox.show(PublishDate) \'*************确认 发布时间 可选项 FileSys.WriteAllText(dir2 & "\\update.Txt",PublishDate, False) \'*************制作update.txt ‘*****************因为PublishDate 是只读的，不能更改。如果可以更改就好了。 |
| -- 作者：Bin -- 发布时间：2014/1/13 8:46:00 -- 呵呵,不错.其实论坛已经有好多个这样的例子了. |
| -- 作者：lsy -- 发布时间：2014/1/13 8:56:00 -- 幼年（幼狐）时期，即有如此志向，将来必成大器。 |
| -- 作者：包头123 -- 发布时间：2014/1/13 10:29:00 -- 消息分享 |