If ftp.Download("\Update\Update.Txt","D:\UpdateTemporary\Update.Txt") = True Then '如果下载升级日期文件成功
Dim ud() As String = FileSys.ReadAllText("D:\UpdateTemporary\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 '如果服务器程序发布日期大于客户端发布日期(大升级)
If ftp.Download("\Update\Update2.Zip","D:\UpdateTemporary\Update2.Zip") = True Then '如果下载程序文件成功
UpdatePath = "D:\UpdateTemporary"
If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户
Return '升级完成后必须先中止后面的代码,否则会出错
End If
End If
ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
If ftp.Download("\Update\Update1.Zip","D:\UpdateTemporary\Update1.Zip") = True Then '如果下载程序文件成功
UpdatePath = "D:\UpdateTemporary"
If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户
Return '升级完成后必须先中止后面的代码,否则会出错
End If
End If
End If
End If
上面的代码如果是非foxtable的小版本升级均正常提示升级，但我故意将update文本中的第二个日期改为2014-12-11，大于原来的程序版本2014-11-11，运行结果就是会下载update2.zip文件，却不会提示是否要升级，结果在原来安装的程序目录下多了一个“update_Fox_Path”目录，里面存放着解压的update2.zip文件的所有内容，这是怎么回事？如果真的有foxtable的程序版本升级时要怎么处理才正确？
加好友 
发短信
Post By：2015/10/15 11:43:00 [只看该作者]
此主题相关图片如下：360截图20151019222912875.jpg