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
这个可以自动打开