Редактировать скрипт

[denis19]

Всем привет. Есть скрипт для создания ярлыка 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