Vb6 如何通过代码运行命令？

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

我需要运行命令

java  –jar  run.jar

在以下目录下：

C:\Program Files\MY_SW_PROD\last\Java_sw

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

run.jar

在

java\u sw

目录中，但我的VB6应用程序不在目录中

我有以下代码，但它不起作用，因为我不在

java\u sw

目录中：

C:\Program Files\MY_SW_PROD\last\Java_sw

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

如何更改到正确的目录

C:\Program Files\MY\u SW\u PROD\last\Java\u SW

，以便能够运行

run.jar

文件

---

备注-ChDir不支持WIN XP

使用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

存储当前工作目录）

---

如果希望命令窗口保持打开状态，请对

CMD.exe

使用

/K

而不是

/C

，请给我举个例子，因为我不熟悉VB6great-bdw-另一个问题-需要在语法中添加什么才能保持CMD窗口打开（我运行它，CMD窗口在运行后关闭？）我认为您需要使用windows API来实现这一点。（如果你找不到任何东西，用谷歌搜索并发布另一个问题）。不过这是非常高级的东西。我有个问题-当我编译这段代码时-我的意思是我确实要-->生成project.exe并运行project.exe，然后cmd不运行，这可能是什么问题？怎么可能，为什么在编译之前它是ok的，而在编译之后某个东西不能与chDir一起正常工作？