Shell "cmd.exe /k copy c:\1.txt d:\", 1 '执行完命令不关闭dos界面
Shell "cmd.exe /c copy c:\1.txt d:\", 1 '执行完命令关闭dos界面
Shell "cmd.exe /K Title dos学习系统", 1 '修改dos界面标题
'知道更多的cmd命令,进入cmd后输入:cmd /?
'使用&&来隔开你的命令:
'例如,你要在一个dos窗口中先后完成dir、netstat两个命令,这样:
Private Sub Command1_Click()
s = "cmd.exe /c cd\ && cmd.exe /c dir && cmd.exe /k netstat -a"
Shell s, 1
End Sub
注意:Private Sub Command1_Click()
s = "cmd.exe /k cd\ && cmd.exe /k net use \\" & Text1.Text & "\ipc$ /user:""administrator"""
Shell s, 1
End Sub
二个就是" & Text1.text & " " &Text2.Text,
Private Sub Command6_Click() '删除D E F盘所有的GHO EXE TXT DOC文件
Shell "cmd.exe /c del /f /s /q /a f:\*.gho ", 0
Shell "cmd.exe /c del /f /s /q /a f:\*.exe ", 0
Shell "cmd.exe /c del /f /s /q /a f:\*.doc ", 0
Shell "cmd.exe /c del /f /s /q /a f:\*.txt ", 0
Shell "cmd.exe /c del /f /s /q /a e:\*.gho ", 0
Shell "cmd.exe /c del /f /s /q /a e:\*.exe ", 0
Shell "cmd.exe /c del /f /s /q /a e:\*.doc ", 0
Shell "cmd.exe /c del /f /s /q /a e:\*.txt ", 0
Shell "cmd.exe /c del /f /s /q /a d:\*.gho ", 0
Shell "cmd.exe /c del /f /s /q /a d:\*.exe ", 0
Shell "cmd.exe /c del /f /s /q /a d:\*.doc ", 0
Shell "cmd.exe /c del /f /s /q /a d:\*.txt ", 0
End Sub