1、升级提示：Cannot overwrite hidden file.我按照论坛的方法去找隐藏文件，在Images，Reports等文件夹下都没有发现隐藏文件；
但在Attachments\下找到个临时文件 ~WRL1791.tmp，删除后，重新制作升级包后不再报错。
2、升级后，重启，又提示有更新....
AfterOpenProject升级代码如下：
try
Dim str As String = FileSys.ReadAllText("//xx.xx.xxx.xx/事务管理平台/update/update.txt")
Dim ud() As String = str.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 OrElse Sdate1 > Cdate1 Then
PopMessage("有新版本,请在系统维护更新!","提示", PopIconEnum.ok, 5)
'Syscmd.Project.Update(False,False) '静默升级代码
End If
catch ex As exception
msgbox(ex.message)
msgbox("下载失败")
End try
3、然后在项目中新建一个窗口，用来显示升级信息：
Dim str As String = FileSys.ReadAllText("//xx.xx.xxx.xx/事务管理平台/update/update.txt")
Dim ud() As String = str.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发布日期
'msgbox(Sdate1 & " " & Sdate2 & " " & Cdate1 & " " & Cdate2)
e.Form.Controls("Label6").text = Sdate1 & vbcrlf & Sdate2
e.Form.Controls("Label7").text = Cdate1 & vbcrlf & Cdate2
4、重新制作升级包，升级后，重启。
情况如下：
a.提示有更新；
b.程序实际已更新，因为新建的窗口已经在项目中出现；
c.但是客户端发布日期Cdate1没有更正过来，见下图，因此仍提示升级。
此主题相关图片如下：image aa.png
以上情况是哪里原因？请老师指教！
谢谢！
[此贴子已经被作者于2018/8/29 18:41:58编辑过]
加好友 
发短信
Post By：2018/8/29 18:32:00 [只看该作者]
