每次发布，制作在线升级包都要重复相同的步骤，想了办法“自动”一点：方案如下，希望大家提提意见。
新建一按钮，软件发布后执行。代码如下：
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 是只读的，不能更改。如果可以更改就好了。
加好友 
发短信
Post By：2014/1/13 8:40:00 [只看该作者]
