VB6 + chDir 命令不改变目录

Question

请多多指教

我编译了以下 VB6 代码(作为 --> 文件 --> make project.exe)

但是当我运行它时，我得到了一个很奇怪的东西(我有 WIN XP 机器)

尽管我定义要运行这一行:

  "java  -jar  run.jar" 

下

    C:\Program Files\APP\SW_TOP\Java by chDir

msgBox 打印差异路径:

    D:\Documents and Settings\Eytan\Desktop

请问为什么？

为什么 chDir 不更改我的 VB6 代码中的目录——出了什么问题？

VB6 代码:

  Private Sub Command_Click()
  ChDir ("C:\Program Files\APP\SW_TOP\Java ")
  Shell Environ("COMSPEC") & " /c  java  -jar  run.jar", vbNormalFocus

  MsgBox App.Path

  End Sub

请告知是否有其他替代方案以在

下运行“java -jar run.jar”

  C:\Program Files\APP\SW_TOP\Java

Answer 1

您可以在每个驱动器上有不同的“当前目录”。因此，当您调用 ChDir 时更改 C: 驱动器上的当前目录，它不会将当前驱动器从 D: 更改为 C:。要切换当前驱动器，请使用 ChDrive程序:

ChDrive "C:"
ChDir "C:\Program Files\APP\SW_TOP\Java "