If Syscmd.Project.Update(False,False) = False Then

Forms("登录窗口").Open()

end if

使用以上代码升级，每次升级都需要升级两次的，比较麻烦

如何做到升级完成后，直接启动主程序，也就是说升级后不需要手动打开程序

试试

If Syscmd.Project.Update(False,False) = False Then \'如果没有升级

    \'\'其他代码

Else

    Application.restart

End If

老师，经测试没有用，

也就是是不可以自己打开，对吧！

能做一个辅助程序吗？在升级时就启动辅助程序，等升级完了之后就打开主程序，待主程序打开之后就关闭辅助程序！

这样的思路是否可行？

老师，你那是个Table文件，我是的生成的Exe文件，是不是要用以下代码打开

在发布升级时将辅助程序.exe加入到附件里去，但这样好像不执行！.exe 文件好像离开Publish就不能执行！

辅助程序这样写，可以吗？ 写在计划内容里

Dim sucess As Boolean = False
static mu As new System.Threading.Mutex(True, "主程序.exe", sucess)
If not sucess Then
Else
    Dim Proc As New Process \'定义一个新的Process
    Proc.File = ApplicationPath &  "\\主程序.exe" \'指定要打开的文件
    Proc.Start()
End If

主程序这样写：

If Syscmd.Project.Update(False,False) = False Then \'如果没有升级

    \'\'其他代码

Else

        Dim Proc As New Process \'定义一个新的Process
    Proc.File = ApplicationPath & "辅助程序.exe" \'指定要打开的文件
    Proc.Start()

End If

 Syscmd.Project.Open("D:\\辅助程序\\Publish\\Project\\辅助程序.FoxEx")

If Syscmd.Project.Update(False,False) =False

else

 If filesys.FileExists(ProjectPath.Replace("project\\","") &  "程序名.exe") = True
        Dim Proc As New Process
        Proc.File =  ProjectPath.Replace("project\\","") &  "程序名.exe"
        Proc.Start()
    Else
        Dim Proc As New Process
        Proc.File = ProjectFile
        Proc.Start()
    End If
end if

这个可以自动打开