The following code provides an easy way to creating shortcuts (*.lnk files)
using Visual Basic, by taking advantage of the STKIT432.DLL
file.
For code that does not require this file, click here.
Private Declare Function fCreateShellLink Lib "STKIT432.DLL"
(ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
'
'code to create the shortcut
'
Dim lReturn As Long
'Add to Desktop
lReturn = fCreateShellLink("..\..\Desktop", _
"Shortcut to Calculator", "c:\Windows\calc.exe", "")
'Add to Program Menu Group
lReturn = fCreateShellLink("", "Shortcut to Calculator",
_
"c:\Windows\calc.exe", "")
'Add to Startup Group
'Note that on Windows NT, the shortcut will not actually appear
'in the Startup group until your next reboot.
'lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator",
_
'"c:\Winnt\system32\calc.exe", "")
Comments