主题：关于自动升级

1、修改update.txt的日期，肯定可以进行publish的更新的；

 

2、如果要做update.txt的修改，那么你在afterOpenProject事件里，就要【自己下载更新文件的update.txt，对比你项目里保存版本号(用表或变量存放)，再决定是否执行update代码】。

1、大版本更新的是publish下面的文件夹；

 

2、小版本更新的是publish下面project文件夹的内容啊；

 

3、是你没有理解自动更新，voice在project里面啊。

 

你去看看update1.zip和update2.zip的内容。

 

自动更新会带过去啊。一种替换project，一种替换publish

那就不需要添加附件。

 

生成update2.zip以后，把dll什么的拷贝进去，这个才是大版本的更新。

 

然后，修改一下update.txt的版本号，就可以进行一次大版本更新从而覆盖publish文件夹（当然，update2.zip里面那些多余的dll等文件，你是可以删掉的）

1、提示升级后有一个 update_Fox_Path 的文件；不可能跟你15楼那样；

 

2、你把update.txt文件下载下来，和你项目保存的时间对比一下，再决定是否执行升级代码啊

 

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
    Dim ud() As String = FileSys.ReadAllText("d:\update.txt").Split("|")
    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate '客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期
   
    If Sdate2 > Cdate2 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
        '升级代码
    ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
        '升级代码
    End If
catch ex As exception
    msgbox("下载失败")
End try

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
    Dim ud() As String = FileSys.ReadAllText("d:\update.txt").Split("|")
    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期

    Dim Cdate1 As Date = "2016-03-10"  'update.txt 的第一个日期，写死
    Dim Cdate2 As Date = "2016-03-20"  'update.txt 的第二个日期，写死，对应，否则会重复更新
   
    If Sdate2 > Cdate2 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
        Syscmd.Project.Update
    ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
        Syscmd.Project.Update
    End If
catch ex As exception
    msgbox("下载失败")
End try

你运行exe的时候，要用右键，属性，管理员身份运行。

 

看20楼，同时升级一下你的 winrar 软件。