vb 打开指定bat文件

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

用Shell 函数来实施：

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

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

Shell 函数

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

楼上的，你的图少勾了一个东西啊，那个银白色的田字啊 ！！教你一个更简单的方法，找到你要的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

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