[решено] Аналог команды CD на VBS

[BigBoo]

Запускаю приложение из подкаталога текущей папки:Set WSHShell = WScript.CreateObject("WScript.Shell")
Set Create = CreateObject("Scripting.FileSystemObject")

Set Folder = Create.GetFolder(WshShell.CurrentDirectory)
WSHShell.Run """"& Folder.Path &"\SubFolder 1\Subfolder 2\Proga 1.exe" &""""
Если в VBS как в CMD аналог команды CD, чтобы перейдя в нужный каталог, команда Run упростилась до:WSHShell.Run """Proga 1.exe"""

[amel27]

Set WSS = WScript.CreateObject("WScript.Shell")
WSS.CurrentDirectory = WSS.CurrentDirectory & "\SubFolder 1\Subfolder 2"

WSS.Run """Proga 1.exe"""