Question

vb如何调用CMD命令

Answer 1

向窗体添加一个按钮：Command Button，Name(名称)属性：cmdOK，Caption属性为：确定(&O) 。
'代码部分
Dim 命令 As String
Private Sub cmdOK_Click()
Shell "cmd.exe /c " & 命令 '就OK了
End Sub

Answer 2

可以调用，自己修改
Private Sub Command1_Click()
Shell "cmd.exe /c" & "ping www.sina.com>c:\abc.txt"
End Sub

Answer 3

用个例子进行演示一下，比如在VB中调用DOS命令，如何得知DOS命令是否已经执行完毕
方法如下：
Set wshl = CreateObject("wscript.shell")
wshl.Run "ping 9zp.com", 1, True 'true代表等待完成,1代表显示运行窗口
wshl.Run "sqlcmd -S 192.168.8.58 -U sa -P sa~!@# -d pubs -Q ""insert into test(MatNo) Values('" & Trim(Text1.Text) & "')""", 0, True 'true代表等待完成,1代表显示运行窗口"
MsgBox "完成".

Answer 4

shell "c:\\winnt\\system32\\cmd.exe /Q 你要执行的命令"
c:\\winnt\\system32是系统目录