Что исправить в скрипте? (нужный адрес папки при создании файла)

Question

Что исправить в скрипте? (нужный адрес папки при создании файла)

Денис Мастер (2335), на голосовании 1 год назад

Есть скрипт для создания ярлыка .URL из буфера обмена. Кнопка стоит в контекстном меню.
Но из какой бы папки не запускал, ярлык создаётся только на рабочем столе.
Можно ли сделать чтоб ярлык создавался везде, в той папке где нажимаю кнопку?
=========
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Randomize()
FileName=Inputbox("Введите имя:","Создание текстового документа.")
'Для кнопки Отмена или для пустого поля ввода
If FileName=Empty Then
WScript.Quit
End If

With CreateObject("WScript.Shell")
Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") + "\" + Filename + ".url")
myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard)
myshortcut.Save
End With

Answer 1

Для того чтобы создать ярлык в той папке, где нажата кнопка, нужно просто изменить строку, в которой указывается путь к папке с ярлыком:

 myshortcut.Save

замените на:

 myshortcut.SaveToFile .GetAbsolutePathName(".") + "\" + Filename + ".url"

Таким образом, ярлык будет создаваться в той папке, где нажата кнопка.

Обратите внимание, что .GetAbsolutePathName(".") возвращает путь к текущей папке, а "." обозначает текущую папку.