Запустить программу с явным указанием рабочей папки

@moonden · Регистрация: 21.05.2011

Доброго времени суток. Нужно с помощью скрипта, запустить программу с явным указанием рабочей папки.

Делал так:

Visual Basic

1
2
3

Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:\My folder"
RetCode = WshShell.Run("notepad.exe", 1, False)

Но нужно вместо "My folder" указать папку относительно текущего пользователя, в частности %APPDATA%, код:

Visual Basic

1
2
3

Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "%APPDATA%"
RetCode = WshShell.Run("notepad.exe", 1, False)

не работает, пишет не удается найти указанный файл. Прошу помочь в этом вопросе, заранее спасибо.

@tisha_ · 20.07.2016, 12:48

Visual Basic

1	WshShell.CurrentDirectory = WshShell.expandEnvironmentStrings("%APPDATA%")

	20.07.2016, 12:48

Решение