bat文件貌似不支持直接传参数的
可以这样用:
将bat中的参数用 $参数 代替
然后VB先读入该bat文件,然后文本替换参数字符串,然后将全部内容写回bat
再调用即可。
或是试下这个
Private Sub Command1_Click()
Dim bat
Set ws = CreateObject("wscript.shell")
//参数之间需要带空格
bat = "C:\Users\fengshi.xu\Desktop\bat.bat " + Text1.Text + " " + Text2.Text
ws.run bat, 1, True
End Sub