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

自动升级需要3个文件，update.txt、update1.zip、update2.zip,如果每次都手动修改update.txt，然后压缩update1.zip、update2.zip很麻烦，还容易出错，为此编写一小段代码，自动完成 以上功能，共享之。

 

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()   
   
    Dim yswj1 As String = ProjectPath & "update\update1.zip"
    Dim yslj1 As String = ProjectPath & "publish\Project"
    zip.Create( yswj1 )
    zip.AddFolder(yslj1)
    zip.Close()
   
    Dim yswj2 As String = ProjectPath & "update\update.txt"
    Dim s As String = Format(PublishDate, "yyyy-MM-dd") & "|2014-07-20"
    FileSys.WriteAllText( yswj2 , s, False, Encoding.Default)
   
    MessageBox.Show("升级文件制作完毕,请复制到升级文件夹!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

 

 

 

注:须在项目文件夹下建立 update文件夹           共勉。

 

 

多谢大家捧场，特别感谢5楼热心相助！现将5楼意见整合，共享之！

 

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)

MessageBox.Show("升级文件制作完毕,请复制到升级文件夹!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

 

 

 再次感谢论坛朋友！

 

 

此主题相关图片如下：qq截图20140814144222.jpg

 

此主题相关图片如下：qq截图20140815082153.jpg
 

 

开发版文件 【含代码】

 

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

点击浏览该文件:升级文件制作20140815.rar

 

 

 

 

非常感谢大家捧场！

 

 

 

 

 

 

此主题相关图片如下：qq截图20140720210958.png

 

可惜，PublishDate 不能赋值  否则 加下列代码会更方便

 

Dim Val As Date = #7/20/2014#
If InputValue(Val, "升级文件制作","请输升级日期:") Then
   ‘PublishDate =  Val
End If

 

 

 

 

此主题相关图片如下：qq截图20140720211638.png