以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动升级出错时不提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140639)
--  作者：liuqide
--  发布时间：2019/9/10 14:58:00
--  [求助]自动升级出错时不提示
项目是在局域网升级，在项目打开时用Syscmd.Project.Update(False,true)检测是否有新版本，部分机子因连不上升级目录会提示连不上网络，我打算如果遇到这种情况，系统能自动跳过检测和升级，不作任何提示，能否实现呢？
--  作者：有点蓝
--  发布时间：2019/9/10 15:35:00
--  
例如：

try
 Network.DownloadFile(updatepath & "/update.txt",ProjectPath &"update.txt") 
Syscmd.Project.Update(False,true)
catch

end try
--  作者：liuqide
--  发布时间：2019/9/10 17:18:00
--  
这样写虽是不会有出错提示，但连接正常时，正常的升级提示也没有了，不知为何？
--  作者：有点蓝
--  发布时间：2019/9/10 17:25:00
--  
try
 Network.DownloadFile(updatepath & "/update.txt",ProjectPath &"update.txt") 
Syscmd.Project.Update(False,true)
catch ex As Exception
msgbox(ex.message) \'连接正常的时候这里会不会弹出提示？
end try
--  作者：liuqide
--  发布时间：2019/9/11 15:17:00
--  
提示此路径已存在文件，第一次打开时就下载了update.txt这文件，第二次打开似乎它不会自动覆盖
--  作者：有点蓝
--  发布时间：2019/9/11 15:48:00
--  
那就换个路径
try
Dim fl As String = ApplicationPath &  "update.txt"
If FileSys.FileExists(fl) Then FileSys.DeleteFile(fl,2,2)
Network.DownloadFile(updatepath & "/update.txt",fl) 
Syscmd.Project.Update(False,true)
……