可以使用这种方法，
Open App.Path & "\1.bat" For Output as #1
Print #1,"你的DOS命令"
Print #1,"你的DOS命令2"
Print #1,"你的DOS命令3"
Print #1,"你的DOS命令4"
Print #1,"你的DOS命令5"
Print #1,"你的DOS命令6"
Print #1,"你的DOS命令7"
Close #1
Shell App.Path & "\1.bat" '即可运行了，如果需要VB接受返回值，请留下邮箱，我将例程发给你。
谢谢采纳
新建一个文本文件，在其中输入要执行的命令，如：ipconfig，把这个文件的后缀名改成：.bat
变成：1.bat
双击这个文件就好了。
run 'ipconfig'
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024