vb 打开指定bat文件

vb 打开指定bat文件

用Shell 函数来实施：
以下是打开在D盘根目录下的S567.bat文件的代码：
Private Sub Command1_Click()
    Dim RetVal
    RetVal = Shell("D:S567.bat", 1)
End SubShell 函数
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

临时新建一个bat，写入代码，隐藏运行，结束后再删除临时bat

楼上的，你的图少勾了一个东西啊，那个银白色的田字啊 ！！教你一个更简单的方法，找到你要的bat文件，修改后缀为TXT，然后双击打开，复制里边的内容，打开VB写
Private Sub Form_Load()
Dim a As String
a = "123" '你复制的内容
Open App.Path & "/123.bat" For Output As #1
Print #1, a '必须这样写,有的时候会很多东西,需要换行,这样可以自动换行
Close #1
Shell App.Path & "/123.bat"
End Sub

Option Explicit
Private Sub Form_Load()
'从res中写入硬盘
Dim File() As Byte
File = LoadResData(101, "CUSTOM")
'标识号“ 101 ”类型“ "CUSTOM" ”可以自己改
Open "D:BAT.bat" For Binary As #1
'文件名“ "D:BAT.bat" ”可以自己改
     Put #1, 1, File '保存
Close #1
'执行文件
Shell ("D:BAT.bat")
'文件名“ "D:BAT.bat" ”可以自己改
End Sub