[VBScript] Change working directory

[i_was_here]

I store several portable applications on my external drive and I use a VBScript to launch a select few of them. Heres what the script looks like:

Set WSHShell = WScript.CreateObject("WScript.Shell")
LaunchDir = WSHShell.CurrentDirectory

wSHShell.Run """" & LaunchDir & "\Applications\PrivaZer\PrivaZer.exe"

Unfortunately, this script does not work well for PrivaZer. I need a way to change the working directory to E:\Applications\PrivaZer\ first before launching the program. However I do not want to hardcode the letter of my drive since it may change depending on the machine I'm on. Any ideas?

[jake1eye]

Perhaps try this

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim App :App = WSHShell.CurrentDirectory & "\Applications\PrivaZer\PrivaZer.exe"

WSHShell.Run(App),1,True

[i_was_here]

It launches PrivaZer however PrivaZer cannot find its setting file.

Would it be possible to change directories and launch PrivaZer in two separate steps?

[jake1eye]

Maybe this might work

Set WSHShell = WScript.CreateObject("WScript.Shell")

Dim App :App = WSHShell.CurrentDirectory & "\Applications\PrivaZer\PrivaZer.exe"

WSHShell.CurrentDirectory=Replace(App,"\PrivaZer.exe","")

WSHShell.Run(App),1,True

[i_was_here]

Thanks, that one works!

[jake1eye]

Glad I was able to help