Question

在VB中加一按钮想运行bat文件，可是没法执行怎么回事？

.

Private Sub Command1_Click()
Shell ("setup.bat")
End Sub

程序发布为EXE后放在 setup.bat 同一文件夹下，点击后却没有反应(直接运行 setup.bat可以)，是为什么？怎么解决？

下面这个是 setup.bat 中的内容

@echo off
RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 .\install.inf
@echo 安装完成！
@echo Enjoy!

Answer 1

Private Sub cdmtsq_Click(Index As Integer)
Shell "cmd /c setup.bat"
End Sub

XP下是 cmd 。

Answer 2

改为:
Private Sub Command1_Click()
Shell (app.path & "\setup.bat")
End Sub