主题：[分享]制作升级文件20140815更新

给大家另外一个参考，不是使用foxtable，而是使用7-zip的命令行来做，先建一个bat文件，

输入下面的命令：

echo off
c:\7zip\7z a D:\升级包\update2.zip D:\test\Publish\*
c:\7zip\7z a D:\升级包\update1.zip D:\test\Publish\Project\*

注释：c:\7zip\7z 是压缩包中解压以后，7z.exe 的全路径，需要根据自己的情况修改，相关的工具见附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生成updat压缩包.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:7zip.rar

给大家另外一个选择，而且压缩速度比foxtable的要快很多。

非常感谢大家捧场！

谢谢楼主，很方便。

试了一下，制作压缩包需要一点时间，第一次还以为代码没反应呢。所以，在窗口加个标签Label1，加点提示：

e.Form.Controls("Label1").Text = "正在制作升级包,请稍候..."
Application.DoEvents()
e.Form.Controls("Button1").Enabled = False
If FileSys.DirectoryExists(ProjectPath & "update") = False Then
    FileSys.CreateDirectory(ProjectPath & "update")
End If
If FileSys.DirectoryExists(ProjectPath & "publish") =  True Then
    Dim zip As New zipFile
    Dim yswj As String = ProjectPath & "update\update2.zip"
    Dim yslj As String = ProjectPath & "publish"
    zip.Create( yswj )
    zip.AddFolder(yslj)
    zip.Close()
End If
If FileSys.DirectoryExists(ProjectPath & "publish\Project") =  True Then
    Dim zip1 As New zipFile
    Dim yswj1 As String = ProjectPath & "update\update1.zip"
    Dim yslj1 As String = ProjectPath & "publish\Project"
    zip1.Create( yswj1 )
    zip1.AddFolder(yslj1)
    zip1.Close()
End If
Dim yswj2 As String = ProjectPath & "update\update.txt"
Dim s As String = Format(PublishDate, "yyyy-MM-dd") & "|" & Format(CDate(applicationvertion),"yyyy-MM-dd")
FileSys.WriteAllText( yswj2 , s, False, Encoding.Default)
e.Form.Controls("Label1").Text = "升级包制作完毕."
Application.DoEvents()
e.Form.Controls("Button1").Enabled = True
Dim Proc As New Process
Proc.File = ProjectPath & "update"
Proc.Start()

如是局域网，还可以直接CopyDirectory 到升级文件夹，太方便了。再次感谢楼主。

生成的 txtupdate.txt文件的内容

0001-01-01|2014-07-20

你在项目属性中设置了项目发布日期了吗？