[求助]平台升级后发布升级问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，昨天平台升级到最新版后，发布程序怎么不能升级了？win7和xp都不行，提示程序发生重大错误，如果继续看到“升级文件解压中。。。。”

贴出升级代码所在事件的完整代码

没有代码啊。就是在发布项目界面设置的，通过共享文件夹升级。以前是360解压的，刚才换了rar,还是不行。提示：程序发生重大错误。如果点击“继续”就出现“文件升级解压中。。。。。。

publish文件夹中有一个升级文件解压的文件夹。如果把里面的文件复制后覆盖以前的文件，还是可以启动，并且是新发布的内容。

AfterOpenProject

Dim str As String = FileSys.ReadAllText(ProjectPath & "config.txt")
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = str
Dim sss As String
Try
sss = DecryptText(Code,"abc","abc")
Catch ex As Exception
End Try
Dim Ok As Boolean
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
OK = True
Else
If n > 0 Then
Forms("注册").Open() '
'FileSys.WriteAllText(ProjectPath & "config.txt", "123456789注册码", False)
Code = FileSys.ReadAllText(ProjectPath & "config.txt")
Try
sss = DecryptText(Code,"abc","abc")
Catch ex As Exception
End Try
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 0 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)

[此贴子已经被作者于2016/3/11 8:56:32编辑过]

本人用FTP方式测试简化升级，正常，完整升级如楼主所述！

[此贴子已经被作者于2016/3/11 9:48:33编辑过]

以下是引用黄训良在2016/3/11 9:40:00的发言：
本人用FTP方式测试简化升级，正常，完整升级如楼主所述！

[此贴子已经被作者于2016/3/11 9:48:33编辑过]

我的是win8，我测试没有问题。小版本升级正常；大版本升级也能正常，没有解压提示。

1、安装包你自己打包的？

2、压缩文件是zip，不是rar，而且压缩也不应该用360压缩或解压。

如果【publish文件夹中有一个升级文件解压的文件夹。】，那说明已经解压成功了啊。

不知道咋回事，以前没问题。升级包都是自动生成的。我用的是win7.

三月八号的升级没问题，就是三月十一号的版本，升级后出现问题了。

[此贴子已经被作者于2016/3/11 16:32:10编辑过]

用win8测试了一次，20151222版升级到20160311版，没有什么问题，不报错。

xp和win7 暂时没有环境测试。

主题：[求助]平台升级后发布升级问题