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