注释都很明白了，到帮助搜索不懂的代码的用法，创建一个项目去测试运行结果。
try
Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True) '下载update.txt文件
Dim ud() As String = FileSys.ReadAllText("d:\update.txt").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 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
'升级代码
ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
'升级代码
End If
catch ex As exception
msgbox("下载失败")
End try
自己做一个提示文件，如: 升级.txt”
Network.DownloadFile("http://www.foxtable.com/download/升级.txt", "d:\升级.txt" ,"" ,"" ,False, 100000, True) '下载升级.txt文件
Dim tip As String = FileSys.ReadAllText("d:\升级.txt") '获取文件内容
msgbox(tip)
加好友 
发短信
Post By：2016/10/11 11:17:00 [显示全部帖子]
