Создать ярлык с иконкой

Удаленный пользователь

#1 · 22.05.2022, 13:10

Здравствуйте, нашел на stack overflow этот vbs скрипт:

Скопированоset fs  = CreateObject("Scripting.FileSystemObject")
set ws  = WScript.CreateObject("WScript.Shell")
set arg = Wscript.Arguments
linkFile = arg(0)
set link = ws.CreateShortcut(linkFile)
    link.TargetPath = fs.BuildPath(ws.CurrentDirectory, arg(1))
    link.Save

Используется коммандой Скопированоscript.vbs shortcut.txt.lnk target.txt

Помогите пожалуйста переписать так, чтобы третим аргументом указывался путь к иконке, и чтобы она устанавливалась на ярлык. Так же мне не принципиален именно vbs, вместо него даже более предполчтительными будут .cmd скрипт или python, а вот powershell не желателен. Пишу в разделе про vbs потому что на vbs уже есть полурабочее решение.

Удаленный пользователь

#2 · 22.05.2022, 13:25

Добрый🖐.

set WshShell = WScript.CreateObject("WScript.Shell" )
set Shortcut = WshShell.CreateShortcut("Куда сохранять" )
Shortcut.TargetPath = "Цель ярлыка"
Shortcut.IconLocation = "Иконка"
Shortcut.Save

Удаленный пользователь отреагировал на эту запись.

Удаленный пользователь

#3 · 22.05.2022, 13:27

Еще раз здравствуйте, по какой-то причине на компьютере первая строчка с приветствием в моем сообщение не оторбражается, даже если я отредактирую сообщение и добавлю в начало пустую строку (скрин)

А на телефоне отображается (скрин)

На обоих устройствах использую хром

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

Удаленный пользователь

#4 · 22.05.2022, 13:31

Цитата: Mikhail от 22.05.2022, 13:25

Добрый🖐.

Скопированоset WshShell = WScript.CreateObject("WScript.Shell" )

Скопированоset Shortcut = WshShell.CreateShortcut("Куда сохранять" )

СкопированоShortcut.TargetPath = "Цель ярлыка"

СкопированоShortcut.IconLocation = "Иконка"

СкопированоShortcut.Save

Скопированоset WshShell = WScript.CreateObject("WScript.Shell" ) set Shortcut = WshShell.CreateShortcut("Куда сохранять" ) Shortcut.TargetPath = "Цель ярлыка" Shortcut.IconLocation = "Иконка" Shortcut.Save

Большое спасибо

Удаленный пользователь

#5 · 11.08.2022, 16:24

Цитата: Mikhail от 22.05.2022, 13:25

Добрый.

set WshShell = WScript.CreateObject("WScript.Shell" )

set Shortcut = WshShell.CreateShortcut("Куда сохранять" )

Shortcut.TargetPath = "Цель ярлыка"

Shortcut.IconLocation = "Иконка"

Shortcut.Save

set WshShell = WScript.CreateObject("WScript.Shell" ) set Shortcut = WshShell.CreateShortcut("Куда сохранять" ) Shortcut.TargetPath = "Цель ярлыка" Shortcut.IconLocation = "Иконка" Shortcut.Save
set WshShell = WScript.CreateObject("WScript.Shell" )
set Shortcut = WshShell.CreateShortcut("Куда сохранять" )
Shortcut.TargetPath = "Цель ярлыка"
Shortcut.IconLocation = "Иконка"
Shortcut.Save

Привет, а можно как-то к цели добавить аргумент?

если я пишу СкопированоShortcut.TargetPath = "D:\python.exe D:\script.py", то выдает ошибку

Удаленный пользователь

#6 · 11.08.2022, 16:25

Привет.
Да, с новой строки Shortcut.Arguments = " "

Удаленный пользователь

#7 · 11.08.2022, 16:28

Цитата: Mikhail от 11.08.2022, 16:25

Привет.
Да, с новой строки Shortcut.Arguments = " "

Спасибо

Удаленный пользователь

#8 · 11.08.2022, 16:29

Аргумент, после TargetPath, вставляем.

Удаленный пользователь

#9 · 11.08.2022, 16:34

ок