求助：谁能帮我改一个VB文件？

Question

我是菜鸟，谢谢各位大侠，不用教我原理，只需要帮我改出来就行，谢谢。原来写好的VB文件为：DIM objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C d:\1.bat", 0, TRUE)现在需要将最后一句中的路径 d:\1.bat  改为路径 C:\Program Files\EVI AUDIO\LA EASE.BAT

Answer 1

iReturn=objShell.Run("cmd.exe /C c:\progra~1\evi~audi\LAEASE.BAT", 0, TRUE)

Answer 2

想执行bat文件,lz的方法中需要转换为短路径,用shell执行就不用考虑这个问题,很方便
Shell "C:\Program Files\LAEASE.BAT", vbNormalFocus

Answer 3

   iReturn = objShell.Run("cmd.exe /C " & """C:\Program Files\EVI AUDIO\LA EASE.BAT""", 0, True)

Answer 4

iReturn=objShell.Run("cmd.exe /C ""C:\Program Files\EVI AUDIO\LA EASE.BAT""", 0, TRUE) 
 

Answer 5

iReturn=objShell.Run("cmd.exe /C " & chr(34) & "C:\Program Files\EVI AUDIO\LA EASE.BAT" & chr(34), 0, TRUE)

Answer 6

诸位大侠，我是要在后台运行"C:\Program Files\EVI AUDIO\LA EAE.BAT"文件，需要一个文件名为“EAE V2.2.EXE”的来引导出这个bat文件。有人给了个VB,如我上面的文件，让我用ScriptCryptor把VBS转换成EXE。依据这些及上面的，可是我现在怎么弄也没成功。
现在求助大家，帮我。
谢谢

Answer 7

还有就是经过ScriptCryptor把VBS转换成的EXE文件，金山和360同时都认为是病毒，很是头痛。这个又如何解决？

Answer 8

DIM objShell
dim RunStr
RunStr="cmd.exe /C " & """" & "C:\Program Files\EVI AUDIO\LA EASE.BAT" & """"
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run(RunStr, 0, TRUE)'OK，就这样