新版自动升级这两个问题是否已解决？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新版自动升级这两个问题是否已解决？

共有3204人关注过本帖树形打印复制链接主题：新版自动升级这两个问题是否已解决？

yankunhao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1031 积分：7237 威望：0 精华：0 注册：2008/9/1 22:34:00

Post By：2016/3/11 8:34:00 [显示全部帖子]

以下是引用大红袍在2016/3/11 0:38:00的发言：

1、【升级已完成，重新启动项目】，确实没有提示，但是已经更新成功了；

我建议升级完成后应该有提示，而且再好可以给开发人员提供当升级完成后的事件和发现需要升级时的事件，这样开发人员就可以更灵活地处理升级软件时的一些细节代码。

比如当用户在打开软件时，如软件发现需要升级，在升级前提供一个这次升级的内容给用户看，再由用户决定是否升级，如果用户选择升级则开始升级，且这个过程能有升级的进度或动画，提示用户现在正在升级中，当升级完成时，提示完成，并且可以自动启动软件。

[此贴子已经被作者于2016/3/11 8:38:05编辑过]

yankunhao

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1031 积分：7237 威望：0 精华：0 注册：2008/9/1 22:34:00

Post By：2016/3/11 10:33:00 [显示全部帖子]

以下是引用大红袍在2016/3/11 10:23:00的发言：
当然，foxtable自己做的话，就简单很多，不然自己要写一段代码。

如何用代码检查时是否升级完成，如果升级完成后，能自动启动，应该如何做？

yankunhao

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1031 积分：7237 威望：0 精华：0 注册：2008/9/1 22:34:00

Post By：2016/3/14 12:02:00 [显示全部帖子]

Dim str As String = ""
str &= "Set ws = CreateObject(""Wscript.Shell"")" & vbcrlf
str &= "ws.run ""cmd /c d:\test.bat"",vbhide"

Dim bat As String = ""
bat &= "taskkill /f /im foxtable.exe" & vbcrlf
bat &= """" & ProjectFile & """"

FileSys.WriteAllText("d:\test.bat", bat, False, Encoding.Default)
FileSys.WriteAllText("d:\test.vbs", str, False, Encoding.Default)

Dim vbs As String = "d:\test.vbs"
Dim Proc As New Process '定义一个新的Process
Proc.File = vbs '指定要打开的文件
Proc.Start()

能否对上面每行代码做个说明吗？我不是好明白这些代码的意思？谢谢！

主题：新版自动升级这两个问题是否已解决？