How to create a shortcut to a folder?

Question

VBScript

You need to create a shortcut to the folder.
There is an error in the line in which I set the target argument.. it says - the argument must end with lnk.

Answer 1

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