2016-09-02 88 views
0
Set WshShell = WScript.CreateObject("WScript.Shell") 
Dim strCurDir 

strCurDir = WshShell.CurrentDirectory 

WshShell.Run strCurDir & "\Advertise.bat", 0, True 
Wscript.Sleep(2) 

WshShell.Run strCurDir & "\Uninstall.bat", 0, True 
Wscript.Sleep(2) 

WshShell.Run strCurDir "\Install.bat", 0, True 


Set WshShell = Nothing 
Wscript.quit 

我試圖在命令行中執行此腳本。我得到錯誤800A0401當我嘗試從vbs執行bat

錯誤800A0401-聲明的預期結束。來源:Microsoft VBScript 編譯錯誤。

回答

3
WshShell.Run strCurDir "\Install.bat", 0, True 

==>

WshShell.Run strCurDir & "\Install.bat", 0, True 

下一次發佈的錯誤行號。