关于软件版本更新问题！懒人的方法！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

由于我比较懒（狐爸比我更懒一直都不出一个官方的解决方法），一直都依赖软件自身的升级功能，所以碰到版本更新我都是叫他们重新下载就算了！但现在实在是受不了了！看看别人写的跨版本更新写得不错！一看代码那么多就头痛，所以就拿他们的代码简化了一下为自己减轻负担，就是有跨版本更新的时候，通知他们自行把旧版本删除，然后把新版本下载到桌面，让他们自己装！（我就是懒，哈哈）以下把代码贴上给论坛里的懒兄懒弟们！本人还学习中大神别笑话！（其中拿了那么个谁谁的代码来用！不好意思！）

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 （请自己去百度一下）

oaok	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：六尾狐帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00	Post By：2014/3/18 20:40:00 [只看该作者] 用户已经被屏蔽

主题：关于软件版本更新问题！懒人的方法！