如何在VB程序中执行DOS命令，在线等待，谢谢

Question

用shell就可以的
shell "deltree/y d:\sss\*.*"
或是shellexecute这个api函数

Answer 1

Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数：部分 描述 
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 
windowstyle 命名参数有以下这些值：常量 值 描述 
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。 
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。 
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗

Answer 2

谢谢，同时还有个问题啊，命令完后的DOS窗口不会自动关闭啊。

Answer 3

9x:
shell "c:\windows\command.com /c copy c:\1.txt d:\",vbhidew2k:
shell "c:\winnt\system32\cmd.exe /c copy c:\1.txt d:\",vbhide其中/c参数可以在执行完命令后关闭dos平台,/k参数可以保留dos平台

Answer 4

呵呵，高手啊。
我发帖前就试过 shell "command deltree/y d:\sss\*.*"
可是不行，谢谢大家了，可以结帖了。