Question

VB如何调用bat文件

我把A.bat文件放在根目录下的DATA文件夹下，使用命令Shell App.Path & "\data\A.bat",不能调用成功，求高手指点！！先谢谢！！！

Answer 1

你要这样子写
a = Shell(App.Path & "\data\A.bat", vbNormalFocus)

忘记说了，补充一下
还有说明一下，当你用(App.Path 来指定路径的时候，在VB6里按F5运行是会找不到此文件的。你要把程序打包成exe后才有效果的，确保 你的exe文件和Data在一个目录中。！

因为你按F5运行后你的当前应用程序路径是你的VB的安装路径，而不是你的 当前工程文件所保存的路径。。。。。

追问

还是不可以，生成exe了，exe与data文件在同一目录，data文件夹下有TXT文本，运行提示找不到指定文件，那个a不需要定义吗?附bat文件内容

追答

a 只是用来临时保存 SHELL调用的返回值，不用管它。一般用不到

你现在是BAT显示找不到文件还是Vb提示找不到文件 ？
只要你已经打包，且\data\a.bat存在，那是不可能出错的。

还有你BAT文件也有问题。你在BAT文件首行加入，下行命令：

cd data

同理：你在exej里调用bat时，在打开的时候同样路径还是你的exe文件所在路径，你要把路径重定向。
我要睡觉了，再不行你私信我吧 ，明天早上再看

Answer 2

用Shell 函数来实施：

以下是打开在D盘根目录下的S567.bat文件的代码：

Private Sub Command1_Click()
    Dim RetVal
    RetVal = Shell("D:\S567.bat", 1)
End Sub

Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。