Как создать ярлык на папку?

Question

[RoboCat]

Нужно создать ярлык на папку.
Ошиька в строке, в ктторой я задаю аргумент target.. пишет - аргумент должен иметь окончание lnk.. странвооьщем напишите плз как сделать ярлык.

Answer 1

[lvv85]

Set WSHShell = WScript.CreateObject("WScript.Shell")

'folderPath - папка в которой будет создан ярлык target.lnk
folderPath = "C:\Users\user\Desktop"

Set link = WSHShell.CreateShortcut(folderPath + "\target.lnk")

'targetPath - папка для которой необходимо создать ярлык
targetPath = "C:\Users\user\Desktop\target_folder"

link.TargetPath = targetPath

link.Save