主题：[求助]重启动按钮时而不灵时而灵

mark 重启项目

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()