Как создать ярлык файла

@Joey · Регистрация: 05.05.2015

Author24 — интернет-сервис помощи студентам

В общем, как создать ярлык файла (без разницы, можно лежащий в одном каталоге с батником, можно с жестким указанием пути к файлу, мне не нужен универсальный способ, любой подойдет). И можно ли сразу из батника задать горячие клавиши как в свойствах ярлыков из проводника задают?

@vavun · 19.07.2015, 17:18

На сколько я знаю на чистом cmd нельзя.

Можно на VBS

Visual Basic

set WshShell = WScript.CreateObject("WScript.Shell" )
set oShellLink = WshShell.CreateShortcut("D:\Desktop\Shortcut.lnk" ) ' Где создается
oShellLink.TargetPath = "C:\Windows\System32\cmd.exe" ' Объект
oShellLink.Arguments = "" ' Аргументы запуска
oShellLink.WindowStyle = 1 ' Стиль окна: 1-Обычное; 3-Развёрнутое; 7-Свёрнутое
oShellLink.Description = "Shortcut Script" '  Комментарий
oShellLink.WorkingDirectory = "c:\windows\system32\"
oShellLink.Hotkey = "CTRL+SHIFT+F" ' Клавиши быстрого вызова
oShellLink.Save

@ComSpec · 19.07.2015, 18:31

Joey, из пакетного файла создать ярлык можно так:

1) запустить VBS-код с помощью "mshta.exe":

Windows Batch file

1	@mshta vbscript:Execute("Set x=CreateObject(""WScript.Shell"").CreateShortcut(""%USERPROFILE%\Desktop\Notepad.lnk""):x.TargetPath=""%windir%\notepad.exe"":x.HotKey=""CTRL+ALT+F"":x.Save():Close()")

;

2) запустить код PowerShell:

Windows Batch file

1	@powershell "$x=(New-Object -ComObject WScript.Shell).CreateShortcut('%USERPROFILE%\Desktop\Notepad.lnk');$x.TargetPath='%windir%\notepad.exe';$x.HotKey='CTRL+ALT+F';$x.Save()"

.

Ярлык к "Блокноту" будет создан на рабочем столе. Горячие клавиши будут назначены.

@Joey · 19.07.2015, 20:33 **[ТС]**

А можно узнать ваше мнение насчет этого кода (это чистый bat/cmd или с примесью js или vba)?

@vavun · 19.07.2015, 20:34

Сообщение от Joey

это чистый bat/cmd или с примесью js или vba

Видно же, что "с примесью"

@Joey · 19.07.2015, 20:37 **[ТС]**

Очень похоже на то, что написал vavun, только мне показалось, что драгокас говорил про cmd код. Вот я и не допонимаю

Добавлено через 32 секунды
vavun, )) вы имеете ввиду, что это вообще не cmd?))

Добавлено через 1 минуту
Хорошо, что значат вот эти строки:

Windows Batch file

@set @x=0; /*
@cscript //nologo /e:jscript "%~f0"
@exit /b
 
*/

@vavun · 19.07.2015, 20:42

Призываю ComSpec

@Joey · 19.07.2015, 21:56 **[ТС]**

В любом случае, спасибо за ответы. Сейчас пойду разбираться с кодом. Не люблю слепо копировать советы, стараюсь еще и разбираться)

Добавлено через 1 час 6 минут
vavun, большое спасибо, в твоем коде разобрался (в меру своих умственных способностей)) ), подмял под свои нужды, кое-что долепил и готово. Теперь перейду к коду ComSpec

Добавлено через 1 минуту
ComSpec, ну, первый вариант - это то же, что у vavuna, но лаконично, однако)

Добавлено через 1 минуту
Второе тоже, но PowerShell не помешает. Я, если честно, не понял, это средства самих скриптов, или они обращаются к винапи функциям, но для моих целей хватит. Спасибо, вопрос вроде как закрыт

Dragokas · 20.07.2015, 13:55

Сообщение от Joey

Хорошо, что значат вот эти строки:

Там код для cmd. Но состоит из гибрида cmd+js. В процессе работы вызывается интерпретатор JScript (cscript.exe).
"%~f0" - полный путь к текущему батнику.

@Joey · 20.07.2015, 21:05 **[ТС]**

Действительно, гибрид

@Redee · 11.08.2016, 20:16

вот к примеру универсальное создание множества ярлыков относительно корневой директории
пользуйтесь на здоровье !) >>

Windows Batch file

@set @x=0; /*
@cscript /e:jscript "%~f0"
@exit */
oShell = new ActiveXObject("WScript.Shell");
myDir = oShell.CurrentDirectory;
uShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\console_general.lnk");
uShortcut.TargetPath = myDir + "\\console_general.bat";
// uShortcut.Arguments = "";
uShortcut.WorkingDirectory = myDir;
uShortcut.HotKey = "CTRL+ALT+SHIFT+C";
// uShortcut.Description = "";
// uShortcut.IconLocation = "";
// uShortcut.WindowStyle = 1;       // Стиль окна: 1-Обычное; 3-Развёрнутое; 7-Свёрнутое
uShortcut.Save();
 
uShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\console_general_pj.lnk");
uShortcut.TargetPath = myDir + "\\console_general_pj.bat";
uShortcut.WorkingDirectory = myDir;
uShortcut.HotKey = "CTRL+ALT+SHIFT+D";
uShortcut.Save();
 
uShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\console_other.lnk");
uShortcut.TargetPath = myDir + "\\console_other.bat";
uShortcut.WorkingDirectory = myDir;
uShortcut.HotKey = "CTRL+ALT+SHIFT+S";
uShortcut.Save();
 
uShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\operation.lnk");
uShortcut.TargetPath = myDir + "\\operation.bat";
uShortcut.WorkingDirectory = myDir;
uShortcut.HotKey = "CTRL+ALT+SHIFT+W";
uShortcut.Save();

@OutNET · 21.12.2016, 13:27

Проще всего - создать в папке с батником ярлык, а потом его просто вставить в нужное место

Например:

Windows Batch file

1	copy 123.lnk c:\windows\system32\1234.lnk

И все) Удачи!)

@alpap · 21.12.2016, 15:24

Не по теме:

OutNET,
а сварить борщ дистанционно - слабо?:)

@тимур05_2 · 31.05.2017, 15:17

OutNET, путь в "Объекте" и "Рабочей папке" будет не тот и ярлык будет битый.

@Captor · 04.07.2020, 02:09

Сообщение от ComSpec

Joey, из пакетного файла создать ярлык можно так:

1) запустить VBS-код с помощью "mshta.exe":

Windows Batch file

1	@mshta vbscript:Execute("Set x=CreateObject(""WScript.Shell"").CreateShortcut(""%USERPROFILE%\Desktop\Notepad.lnk""):x.TargetPath=""%windir%\notepad.exe"":x.HotKey=""CTRL+ALT+F"":x.Save():Close()")

;

Ярлык к "Блокноту" будет создан на рабочем столе. Горячие клавиши будут назначены.

Использовал данный вариант внутри скобок оператора IF () и программа вынесла следующие за этой строки за скобки. Пришлось отказаться от скобок в операторе IF и заменить их переходом GOTO. Но вот интересно, а можно было по другому решить эту проблему (в рамках средств языка командного процессора)?

@Pixel754 · 23.11.2020, 02:38

Всем привет, вот с толкнулся с проблемой: перенос расшареной папки...
Ситуэйнен- поставили новую "машину" (удаленно), дали место, и сказали работать в новом месте. Парк примерно 80 ПК. USERы все старенькие бабули (учебное заведение), вот и есть необходимость батником со старой папки своять ярлык на рабочий стол с ссылкой на новую папку. + необходимость ввести учетные данные (логин, пассворд).

Bash

1	copy 123.lnk %DESKTOP%123.lnk

причем сам 123.ink ссылается на новое расположение. CMD Будет лежать в старой папке рядом с 123.ink

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	20.07.2015, 21:05 [ТС]	10
	Действительно, гибрид 0

@тимур05_2 7 / 7 / 0 Регистрация: 06.09.2014 Сообщений: 270
	31.05.2017, 15:17	14
	OutNET, путь в "Объекте" и "Рабочей папке" будет не тот и ярлык будет битый. 1

Как создать ярлык файла

Решение

Решение

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
		1
	Как создать ярлык файла 19.07.2015, 17:02. Показов 63784. Ответов 15 Метки нет (Все метки) В общем, как создать ярлык файла (без разницы, можно лежащий в одном каталоге с батником, можно с жестким указанием пути к файлу, мне не нужен универсальный способ, любой подойдет). И можно ли сразу из батника задать горячие клавиши как в свойствах ярлыков из проводника задают? 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	19.07.2015, 20:33 [ТС]	4
	А можно узнать ваше мнение насчет этого кода (это чистый bat/cmd или с примесью js или vba)? 0

@vavun 10582 / 5545 / 864 Регистрация: 07.04.2013 Сообщений: 15,660
	19.07.2015, 20:34	5
	Сообщение от Joey это чистый bat/cmd или с примесью js или vba Видно же, что "с примесью" 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	19.07.2015, 21:56 [ТС]	8
	В любом случае, спасибо за ответы. Сейчас пойду разбираться с кодом. Не люблю слепо копировать советы, стараюсь еще и разбираться) Добавлено через 1 час 6 минут vavun, большое спасибо, в твоем коде разобрался (в меру своих умственных способностей)) ), подмял под свои нужды, кое-что долепил и готово. Теперь перейду к коду ComSpec Добавлено через 1 минуту ComSpec, ну, первый вариант - это то же, что у vavuna, но лаконично, однако) Добавлено через 1 минуту Второе тоже, но PowerShell не помешает. Я, если честно, не понял, это средства самих скриптов, или они обращаются к винапи функциям, но для моих целей хватит. Спасибо, вопрос вроде как закрыт 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	20.07.2015, 13:55	9
	Сообщение от Joey Хорошо, что значат вот эти строки: Там код для cmd. Но состоит из гибрида cmd+js. В процессе работы вызывается интерпретатор JScript (cscript.exe). "%~f0" - полный путь к текущему батнику. 1

@alpap
	21.12.2016, 15:24 #13
	Не по теме: OutNET, а сварить борщ дистанционно - слабо?:) 0