CurrentDirectory

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