主题：版本自动在线升级，出现部分项目无限升级，原因是update_Fox_Path不覆盖（已解决，结尾有答案）

我发现关闭360以后可以顺利升级，测试几个项目也正常了。估计是因为这回事

我发现是Application.ReStart  的问题。这个东西，在更新小版本没问题。更新大版本，会导致update_fox_path不提取覆盖！

                If Syscmd.Project.Update(False,False) =True Then
                    Application.ReStart  '升级成功后重启项目
                End If

这个用法来自这个官方帖子，太坑了

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=129576&skin=0

'联网检测更新---
If User.Type <> UserTypeEnum.Developer Then'根据是否开发者,再检查升级
    Try
        Dim req = System.Net.WebRequest.Create(UpdatePath & "/update.txt")
        Dim pos = req.GetResponse
        Dim stm As System.IO.Stream = pos.GetResponseStream()
        Dim reader As New System.IO.StreamReader(stm)
        Dim str As String = reader.ReadToEnd
        pos.Close
        stm.Close
        reader.close
       
        Dim ary() As String = str.split("|")
        Dim d As Date = ary(0)
        Dim dv As Date = ary(1)
        If PublishDate < d Then
            If MessageBox.show("发现新版本{" & d & "},是否升级?","在线升级提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                '备份一下Attachments文件夹--
                Dim now As String = Format(Date.now, "yyyyMMddHHmmss")
                If FileSys.DirectoryExists(ProjectPath & "Attachments") Then
                    FileSys.CopyDirectory (ProjectPath & "Attachments",ProjectPath & "Attachments备份_" & now, True)
                End If
                '备份一下Attachments文件夹--
               
                If dv > ApplicationVertion Then
                    MessageBox.show("本次升级内容较多,请耐心等待" & vbcrlf & vbcrlf & "升级后需要【手动重启软件】!","升级重要提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
                End If
                If Syscmd.Project.Update(False,False) =True Then
                    If dv <= ApplicationVertion Then '小版本更新,可以用自动重启,大版本绝对不能用,会无限升级!
                        Application.ReStart  '升级成功后重启项目
                    End If
                End If
                Return ""
            Else
                MessageBox.show("以旧版程序运行,可能会有报错,请尽快升级","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            End If
        Else '无需升级,正常启动
            '继续执行Try组合后的代码
        End If
    Catch ex As exception
        MessageBox.Show("联网检测更新失败,将以当前版本运行.")
    End Try
End If
'联网检测更新---

总算解决了，最终完美升级方案，放在AfterOpenProject的最开头，然后你自己的其他代码