If filesys.FileExists(ProjectPath.Replace("project\","") & "MIS.exe") = True 'MIS.exe是发布后项目的名称 Dim Proc As New Process Proc.File = ProjectPath.Replace("project\","") & "MIS.exe" Proc.Start() Else Dim Proc As New Process Proc.File = ProjectFile Proc.Start() End If System.Diagnostics.Process.GetProcessesByName("foxtable")(0).Kill