以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于软件版本更新问题！懒人的方法！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47863)

--  作者：xietan417 --  发布时间：2014/3/18 19:52:00 --  关于软件版本更新问题！懒人的方法！ 由于我比较懒（狐爸比我更懒一直都不出一个官方的解决方法），一直都依赖软件自身的升级功能，所以碰到版本更新我都是叫他们重新下载就算了！但现在实在是受不了了！看看别人写的跨版本更新写得不错！一看代码那么多就头痛，所以就拿他们的代码简化了一下为自己减轻负担，就是有跨版本更新的时候，通知他们自行把旧版本删除，然后把新版本下载到桌面，让他们自己装！（我就是懒，哈哈）以下把代码贴上给论坛里的懒兄懒弟们！本人还学习中大神别笑话！（其中拿了那么个谁谁的代码来用！不好意思！） If TryConnectHost("www.qq.com") Then \'看看域名能否能解释          Network.DownloadFile("http://111.11.1.60:8080/down/Version.txt", "D:\\UpdateTemporary\\Version.txt")      End If Dim utmp As String = "D:\\UpdateTemporary" \'存放升级文件的临时文件夹 Dim cver As Date = FileSys.ReadAllText(ProjectPath & "\\Catch\\Version.txt") \'客户端Version.txt Dim uvtxt As String = utmp & "\\Version.txt" \'服务端版本 Dim sver As Date = FileSys.ReadAllText(uvtxt) \'服务器Version.txt If FileSys.DirectoryExists(utmp) = False Then     MessageBox.Show("下载效验版本失败")     Return ElseIf sver > cver Then \'如果服务器版本大于客户端版本     MessageBox.Show("提示:软件将会重新下载到桌面,请把旧版本删除")     Network.DownloadFile("http://111.11.1.60:8080/down/eg.zip", SpecialFolder.DesktopDirectory & "\\eg.zip"  ,"" ,"" ,True, 100000, True) \'将软件下载到桌面 End If FileSys.DeleteDirectory(utmp,2,2) \'删除临时文件夹 Return \'终止执行后续代码,直接退出 到最后推荐一个免费个人HTTP服务器搭建软件给大家使用（强烈推荐，不好用大家砍我;以前不发是因为以为地球人都知道） 名称：http file server  （请自己去百度一下）

--  作者：lsy --  发布时间：2014/3/18 19:55:00 --   先顶一个。