如何通过代码运行命令？

Question

请帮我从VB6运行外部命令：

我需要运行命令

java  –jar  run.jar

在以下目录中：

C:\Program Files\MY_SW_PROD\last\Java_sw

run.jar位于java_sw目录中，但我的VB6应用程序不在。

我有以下代码，但它不起作用，因为我不在java_sw目录中：

   Shell Environ("COMSPEC") & " /c  java  –jar  run.jar", vbNormalFocus

如何更改到正确的目录C:\Program Files\MY_SW_PROD\last\Java_sw，以便我能够运行run.jar文件？

备注 - ChDir不在WIN XP上工作！

Answer 1

使用VB6函数ChDir更改Shell之前的当前工作目录：

Dim currentDirectory as String

'Get the current working directory
currentDirectory = CurDir("C:")
'Change the current working directory
Call ChDir("C:\Program Files\MY_SW_PROD\last\Java_sw")
'Do you shell stuff here.

'Then set the current directory to the starting value
Call ChDir(currentDirectory)

（将它设置回原始值也是一种好习惯：使用CurDir存储当前工作目录。

如果您希望命令窗口保持打开状态，请/K使用/C代替CMD.exe。