Книга: Недокументированные и малоизвестные возможности Windows XP
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
Оглавление книги
