vb 中怎么运行bat文件？

Option Explicit

Const CC_不关闭窗口 As String = " &&pause"

Private Sub Form_Load()

    '在c:\ 建立一个 1.bat 的批处理文件，里面的内容为:

    'dir

    '然后，运行本程序，就可以不关闭窗口了。

    

    Shell "c:\1.bat" & CC_不关闭窗口, vbNormalFocus

End Sub

你要这样子写

a = Shell(App.Path &"\data\A.bat", vbNormalFocus)

忘记说了，补充一下

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

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

不知道你所谓的选择目录使用的是什么方法，但不管什么方法，你的程序中肯定是知道这个目录的是吧？假定这个目录保存在变量d中，那么就是：

Shell d &"\yijianguilei.bat", vbNormalFocus '注意那个括号是画蛇添足，可以去掉

App.Path就是软件所在目录，因此把它换成bat所在的目录不就行了？

---