如何用VB弄一个只要按一下按钮就能生成我要的批量处理文件并且运行

你想要什么功能呢?

呵呵,自己琢磨吧:

Private Sub Command1_Click()
Dim a$
a = "copy c:\windows\system32\calc.exe c:\1.exe"
a = a & vbCrLf & "c:\1.exe"

Open "c:\a.bat" For Output As #1
Print #1, a
Close #1

Shell "cmd.exe /c c:\a.bat", 0
End Sub

问题补充：自动运行F:\gj里的123.BAT文件
Shell "cmd.exe /c F:\gj\123.BAT", 0