主题：关于自动升级

那就不需要添加附件。

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

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

理一下设计思路：

1、要用的文件或文件夹放在Project文件夹下（即设计时的项目文件夹下）：

代码：ProjectPath & "你的文件名（或文件夹/文件名）"
2、最好是放在Attachments文件夹下，这样小升级时也会一起更新。

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

    Forms("窗口1").open()
    '后续其它代码
End If

不是可以自动实现小版本下载  project 文件夹， 大版本下载整个文件夹吗？     关键是下载下来后，并没有覆盖以前的旧文件夹，而是生成了一个新的

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的时候，要用右键，属性，管理员身份运行。