向窗体添加一个按钮：Command Button，Name(名称)属性：cmdOK，Caption属性为：确定(&O) 。
'代码部分
Dim 命令 As String
Private Sub cmdOK_Click()
Shell "cmd.exe /c " & 命令 '就OK了
End Sub
'代码部分
Dim 命令 As String
Private Sub cmdOK_Click()
Shell "cmd.exe /c " & 命令 '就OK了
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 推荐于2017-09-23
可以调用，自己修改
Private Sub Command1_Click()
Shell "cmd.exe /c" & "ping www.sina.com>c:\abc.txt"
End Sub本回答被提问者采纳
Private Sub Command1_Click()
Shell "cmd.exe /c" & "ping www.sina.com>c:\abc.txt"
End Sub本回答被提问者采纳
第2个回答 2015-09-12
用个例子进行演示一下，比如在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 "完成".
方法如下：
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 "完成".
第3个回答 2005-11-04
shell "c:\\winnt\\system32\\cmd.exe /Q 你要执行的命令"
c:\\winnt\\system32是系统目录
c:\\winnt\\system32是系统目录
相似回答
