Creating .ink shortcuts

[pcsyoga]

Is there a way to create a .ink shortcut with lisp? I am copying network files to a hard drive, and would like to create a shortcut to the network directory programmatically, so it would be easy to save back to the network.

[stig.madsen]

Thought I could find one in McNeels DosLib library but no luck. Maybe someone here knows the answer to that.

Otherwise, you can utilize the Shell scripting object. The following function creates a shortcut based on these arguments:

target: path of file to make a shortcut to
fname: filebase name of shortcut file (without extension)
path: where to put the shortcut



(defun myShortcut (target fname path / shellObj shortcut)
(cond ((setq shellObj (vlax-create-object "WScript.Shell"))
(setq shortcut (vlax-invoke-method
shellObj
'CreateShortcut
(strcat path "\\" fname ".lnk")
)
)
(vlax-put-property shortcut 'TargetPath target)
(vlax-invoke-method shortcut 'Save)
(vlax-release-object shortcut)
(vlax-release-object shellObj)
)
)
)

Of course, you'd probably want some user interface to go with it but it should be basic stuff.

[pcsyoga]

Awesome Stig!
Thanks for all your help.