189 8069 5689
shell "cmd /c dir c:\*.*",1
创新互联是一家集网站建设,瑞昌企业网站建设,瑞昌品牌网站建设,网站定制,瑞昌网站建设报价,网络营销,网络优化,瑞昌网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
msgbox("执行完毕")
另外CMD窗口是无法隐藏执行的，当然，你可以换另外一个思路，就是启用一个新线程，然后将线程后台执行CMD语句，这样前台就看不到CMD窗口了
请参考下面的示例
shell "cmd /c dir",1'/c表示执行完即关闭窗口
shell "cmd /k dir",1'/k表示执行完停留
shell "cmd /c dir pause",1'多条语句可用连接
关于cmd的具体用法可以在命令提示符下敲入cmd/?看看
太多了，只列举一些典型的：
CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]
[[/S] [/C | /K] string]
/C 执行字符串指定的命令然后终断
/K 执行字符串指定的命令但保留
/S 在 /C 或 /K 后修改字符串处理(见下)
/Q 关闭回应
/D 从注册表中停用执行 AutoRun 命令(见下)
/A 使向内部管道或文件命令的输出成为 ANSI
/U 使向内部管道或文件命令的输出成为 Unicode
/T:fg 设置前景/背景颜色(详细信息，请见 COLOR /?)
/E:ON 启用命令扩展(见下)
/E:OFF 停用命令扩展(见下)
/F:ON 启用文件和目录名称完成字符 (见下)
/F:OFF 停用文件和目录名称完成字符(见下)
/V:ON 将 ! 作为定界符启动延缓环境变量扩展。如: /V:ON 会
允许 !var! 在执行时允许 !var! 扩展变量 var。var 语法
在输入时扩展变量，这与在一个 FOR 循环内不同。
/V:OFF 停用延缓的环境扩展。
Debug对象只能在程序设计和调试阶段才有效，生成EXE后就无效了，又由于你用了On Error Resume Next，所以出错信息被屏蔽了，表面看起来就是没有反应了。
补充一点：当程序出错时，你最好把On Error语句删掉或注释掉，这样再运行你就知道是哪里错了。另外本人建议如非必要尽可能不要用On Error，否则怎么死的都不知道。
在代码里直接用Shell命令调用cmd
Private Sub Command1_Click()
Shell "cmd /c ipconfig net user arp -a pause", vbNormalFocus
End Sub
上面这个就是在按钮里面的实例，共运行了3个命令ipconfig 、net user 、 arp -a 然后一个暂停命令pause，每个cmd命令之间用 来连接运行。
调用c:\1.bat，可以这样：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("cmd.exe /c call c:\1.bat", AppWinStyle.NormalFocus)
End Sub
添加一个模块，
然后把它复制粘贴到模块里，
然后在窗体级调用。
dimiasintegeri=shell(Filename,style,wait,timeout)后面的3个参数是可以省略的具体说明以下PublicSharedFunctionShell(_PathNameAsString,_StyleAsAppWinStyle,_WaitAsBoolean,_TimeoutAsInteger_)AsInteger参数PathName类型：System..::.String必须。String.要履行的程序的名称，和所有必须的参数和命令行开关。PathName也能够包括驱动器和目录路径或文件夹。如果不知道程序的路径，则可使用GetFiles进行定位。例如，可以调用My.Computer.FileSystem.GetFiles(C:\,True,testFile.txt)，这将返回驱动器C:\上所有目录中每一个名为testFile.txt的文件的完全路径。