CMD问题（急）

Question

各位高手，怎么样才能在VB中实现和运行CMD命令行一样的功能，希望有代码说明。

Answer 1

Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)   ' 完成Calculator。

Answer 2

是不是在VB中调用dos命令啊？

Answer 3

我的一个应用程序只能在CMD命令行里执行，我想用VB实现程序启用CMD控制台执行命令行，并且自动关掉控制台。

Answer 4

给你个变通的方法，但是一样可以解决问题：
新建一个工程，在窗体上放个按钮：
Private Sub Command1_Click()
Dim FileNum1 As Long
Dim FileName As String
FileNum1 = FreeFile
FileName = App.Path & "\Execute.bat"
Open FileName For Binary Access Write As #FileNum1
   Put #FileNum1, , "Md \AA"     '在当前目录下新建一个文件夹AA
Close #FileNum1
Shell FileName
End Sub
这个方法就是写一个包含DOS命令的批处理文件，再调用它。

Answer 5

直接shell "cmd /c ***.exe",1***表示你的exe的完整路径和文件名

Answer 6

TO gdami(糖米) :
DOS 命令可不是光运行程序哦，比如要给当前文件夹下所有的文件改名字，或者建立一个新文件夹。就没有办法啦。

Answer 7

to  WallesCai(WallesCai) 
试试就知道了，和你说的功能一样。
Private Sub Command1_Click()
Shell "cmd /c Md c:\AA ", 1
End Sub
至于要输入东西的话，直接把控制台打开.

Answer 8

DOS 命令可不是光运行程序哦，比如要给当前文件夹下所有的文件改名字，或者建立一个新文件夹。就没有办法啦。
============================
你shell一个字符串不就行了吗？？？？？
例子：
Private Sub Command1_Click()
Dim a As String
a = "cmd /k dir d:\winxp"
Shell a, vbNormalFocus
End Sub上面是打开控制台并显示d:\winxp目录下的文件的例子你要执行你的命令，修改字符串a就是了。不过有几点注意：
1。如果不想显示控制台，把vbNormalFocus改为vbhide
2.如果想执行完马上结束，把/k参数改为/c
3.如果是win9x系列，要把cmd改为command.exe
4。某些dos命令不能用这种方法传递参数
vb6+sp5+xp下通过

Answer 9

找个会写c的人帮你写一个带参数的c程序在帮你shell 

Answer 10

算了，我直接写吧/*shell.cpp*/
#include "stdlib.h"
#include "string.h"
void main(int argc,char * argv[])
{
char  str[500]="";
for(int i=1;i<argc;i++)
{
strcat(str, argv[i]);
strcat(str," ");
}
if(strlen(str)!=0)
{
system(str);
}
}'''demo.frm
Private Sub Form_Load()
Shell App.Path & "\shell.exe md test"
End Sub
把shell.cpp编译成shell.exe放在工程目录里就行了