VB6如何运行多行CMD命令？

2025-02-24 19:40:43

推荐回答（2个）

回答1：

Private Sub Form_Load()
Shell "cmd /c msg %username% /time:5 你好，这是一个成功的实验"
end
End Sub

——————————————————
如果需要命令提示符执行完命令后不退出，则可用下面这个：
Private Sub Form_Load()
Shell "cmd /k msg %username% /time:5 你好，这是一个成功的实验"
end
End Sub

下面这个用函数解决：
Private Function cmd(str As String)
str = "cmd /k " & str & Chr(34)
Shell str
End Function

Private Sub Form_Load()
Dim str As String
str = "start c:\&dir c:\"
cmd (str)
End Sub

回答2：

shell语句