[решено] Аналог команды CD на VBS - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Аналог команды CD на VBS (http://forum.oszone.net/showthread.php?t=210736)

Аналог команды CD на VBS

Запускаю приложение из подкаталога текущей папки:

Код:

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"""

Код:

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

WSS.CurrentDirectory = WSS.CurrentDirectory & "\SubFolder 1\Subfolder 2"



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