Sub CreatExe()
Dim modifier As String
Dim ScriptFile As String
modifier = DirPath + "\Tools\modifier.exe"
ScriptFile = DirPath + "\Resources\script.txt"
modifier = """" + modifier + """" + " -script """ + ScriptFile + """"
Open DirPath + "\Run.bat" For Output As 1
Print #1, modifier
Close #1
Shell modifier '程序没反映
End Sub

单数运行Run.bat则可以……为什么？

可以发出完整的代码吗?或把你的源代码共享出来大家帮你看看.