[решено] Как создать ярлык на рабочем столе для файла из той же папки где запускается скрипт?

[navigator19]

Как создать ярлык на рабочем столе для файла file.exe который находится в той же директории где и сам скрипт?

[amel27]

@set @x=0 /*
@cscript/nologo /e:jscript "%~f0" "%~dp0file.exe" "%~dp0"
@exit */
sh=WScript.CreateObject("WScript.Shell")
lk=sh.CreateShortcut(sh.SpecialFolders("Desktop")+"\\file.lnk")
lk.TargetPath=WScript.Arguments(0)
lk.WorkingDirectory = WScript.Arguments(1)
lk.Save()


статья: Создание ярлыков (http://oszone.net/6161)

[Iska]

Похожие темы:
[решено] Создание ярлыков с ссылкой на привод когда имя диска не определено (http://forum.oszone.net/showthread.php?t=183636)
[решено] Как создать ярлык и поменять его иконку или поменять иконку уже существующего ярлыка (http://forum.oszone.net/showthread.php?t=168446)

Пример пакетного файла:
NirCmd - Windows command line tool (http://www.nirsoft.net/utils/nircmd.html)
@echo off
nircmd.exe shortcut "%~dp0file.exe" "~$folder.desktop$" "My File"

[navigator19]

Большое спасибо, все эти статьи я читал просто не знал как определить относительное место хранение файла, где можно прочитать про "%~dp0"

[amel27]

где можно прочитать про "%~dp0" »
CALL /?

[navigator19]

Спасибо, век живи век учись!

[navigator19]

В продолжение темы, а как с помощью этого скрипта
@set @x=0 /*
@cscript/nologo /e:jscript "%~f0" "%~dp0file.exe" "%~dp0"
@exit */
sh=WScript.CreateObject("WScript.Shell")
lk=sh.CreateShortcut(sh.SpecialFolders("Desktop")+"\\file.lnk")
lk.TargetPath=WScript.Arguments(0)
lk.WorkingDirectory = WScript.Arguments(1)
lk.Save()
в ярлык программы ещё и параметры запуска дописать

[amel27]

параметры запуска дописать »
линк на статью был дан не случайно (см. Вариант 1):
@set @x=0 /*
@cscript/nologo /e:jscript "%~f0" "%~dp0file.exe" "%~dp0"
@exit */
sh=WScript.CreateObject("WScript.Shell")
lk=sh.CreateShortcut(sh.SpecialFolders("Desktop")+"\\file.lnk")
//------------------------------------------
lk.TargetPath = WScript.Arguments(0) // Путь к файлу, для которого создаётся ярлык
lk.WorkingDirectory = WScript.Arguments(1) // Рабочая папка
lk.WindowStyle = 1 // Стиль окна: 1-Обычное; 3-Развёрнутое; 7-Свёрнутое
lk.Hotkey = "CTRL+SHIFT+F" // Клавиши быстрого вызова
lk.IconLocation = WScript.Arguments(0) // Путь к файлу иконки для ярлыка
lk.Description = "Это тестовый ярлык" // Комментарий
lk.Arguments = "C:\MyFile.txt" // Аргументы командной строки
//------------------------------------------
lk.Save()