VB6 + chDir command not change the directory

Question

Please advice

I compiled the following VB6 code ( as --> file --> make project.exe )

But when I run it I get a very strange thing ( I have WIN XP machine )

In spite I defined to run this line:

  "java  -jar  run.jar"

under

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

msgBox print diff PATH:

    D:\Documents and Settings\Eytan\Desktop

please advice why?

Why chDir not change the directory in my VB6 Code – what's wrong?

VB6 Code:

  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

Please advice if there are some other alternative in order to run the "java -jar run.jar" under

  C:\Program Files\APP\SW_TOP\Java

Please do not tag VB6 questions with VB.NET. They are very different technologies. — Steven Doggart
Shell inherits its own environment, including current directory, apart from whatever your EXE runs under. You might try shelling out to a bat file that CDs to the path you want then runs your file. And by the way, App.Path is always going to return the path to your EXE, not the current directory. — Steve Rindsberg
Also, this is not VBA but VB6 as VBA does not allow you to create a standalone executables. — user2140173

Steven Doggart Steven Doggart · Accepted Answer · 2014-01-28T15:47:59

You can have a different "current directory" on each drive. So, while your call to ChDir changes your current directory on the C: drive, it doesn't change your current drive from D: to C:. To switch your current drive, use the ChDrive procedure:

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

VB6 + chDir command not change the directory

2 Answers