CurrentDirectory

Свойство возвращает текущую директорию, в которой находится сценарий или которая используется в данный момент командной строкой, если сценарий вызывается из командной строки.

Рассмотрим пример работы с этим и двумя предыдущими методами. В этом примере будет создан ярлык файла, путь к которому задаст пользователь. При этом ярлык будет располагаться либо в текущем каталоге (если пользователь нажмет кнопку Да), либо в каталоге, который пользователь сам укажет.

Листинг 16.2. Работа с ярлыком и текстовым диалогом

set wshshell = WScript.CreateObject("WScript.Shell")

vibor = wshshell.Popup("Создать ярлык в каталоге " & wshshell.CurrentDirectory & "?", "100", "Создание ярлыка", vbYesNoCancel)

select case vibor

case vbYes

set yarlik = wshshell.CreateShortcut(wshshell.CurrentDirectory & "eto_yarlik.lnk")

yarlik.TargetPath = "d:aa.bmp"

yarlik.Save

case vbNo

path = InputBox("Введите путь и имя ярлыка","Создание ярлыка",

wshshell.CurrentDirectory & "eto_yarlik.lnk")

If path <> "" Then

set yarlik = wshshell.CreateShortcut(path)

yarlik.TargetPath = "d:aa.bmp"

yarlik.Save

Else

MsgBox "Ну как хотите…"

End if

case vbCancel

MsgBox "Ну как хотите…"

end select