在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!

改为:

Private Sub Command1_Click()

Shell (app.path & "\setup.bat")

End Sub

• ·龙年的金牛座适合怎样的减肥方法?
• ·“10：10：10（时间）”这个用英语怎么读？
• ·手机为什么无缘无故充不了电了？
• ·复合调味料武汉销售地址
• ·网页上的图片和动画不能看到是为什么
• ·卡巴斯基互联网安全套装6.0怎样删除旧的序列号
• ·请问一下关于倩碧的问题。
• ·初一数学
• ·今天是星期一,那到星期五还有几天?
• ·谁能贴几篇很美的文章啊！