Foxtable(狐表)用户栏目专家坐堂 → 关于发布的系统更新后执行代码的请教


  共有7139人关注过本帖树形打印复制链接

主题:关于发布的系统更新后执行代码的请教

帅哥哟,离线,有人找我吗?
atmetmicoo
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:4155 威望:0 精华:0 注册:2012/11/26 21:54:00
  发帖心情 Post By:2013/3/6 8:50:00 [只看该作者]

我的系统升级完后,需要关闭在重新打开才行,否则很多莫名其妙的报错

所以,我想用一个代码重新比对一下时间,如果是升级了,就加入关闭系统的代码,然后让用户重新打开。


 回到顶部
帅哥哟,离线,有人找我吗?
atmetmicoo
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:4155 威望:0 精华:0 注册:2012/11/26 21:54:00
  发帖心情 Post By:2013/3/6 11:36:00 [只看该作者]

狐爸,我想每次打开系统的时候比对一下update.txt中的日期跟系统本身版本的日期,代码如何写啊,谢谢。
[此贴子已经被作者于2013-3-6 11:36:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/6 11:45:00 [只看该作者]

Network.DownloadFile(http://路径/update.txt, "c:\data\update.txt")
Dim s as String = Filesys.Readalltext("c:\data\update.txt")
Dim d As Date = Cdate(s)
if d > PublishDate Then
    有新版本啦
End IF


 回到顶部
帅哥哟,离线,有人找我吗?
atmetmicoo
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:4155 威望:0 精华:0 注册:2012/11/26 21:54:00
  发帖心情 Post By:2013/3/6 12:05:00 [只看该作者]

OK,谢谢。

 回到顶部
总数 14 上一页 1 2