vb 下用shell实现 cmd 执行2个命令

Posted 2023-05-13

vb 下用shell实现 cmd 执行2个命令
1. cd\ d:\retail
2. jre\bin\java -jar retail_update.jar

注：因为路径是一个变量所以用了FOR d:\retail1 d:\retail2 d:\retail3 d:\retail...
For i = 1 To 3
a = "\retail" & i

Shell "cmd /k" & "cd /d" & a & "jre\bin\java -jar retail_update.jar " 这样就提示找不到路径

Shell "cmd /k" & "cd /d" & a 单独一个命令能正常跳到d:\retail目录，但加上后面的那个命令就不行
求高手指点谢谢

参考技术A Shell "cmd /k" & "cd /d" & a & "jre\bin\java -jar retail_update.jar " 这样就提示找不到路径：
仔细看，加个\
Shell "cmd /k" & "cd /d" & a & "\jre\bin\java -jar retail_update.jar "

VB6如何运行多行CMD命令？

VB6如何运行多行CMD命令？我想用VB制作一个EXE文件，点击按钮自动执行CMD代码，应该如何操作？
不使用VB调用外部CMD文件，执行多行CMD命令。

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 参考技术A shell语句追问

shell智能单句，多的不会