Ceating Shortcuts through code in VB

How do I create shortcuts to .exe through code
LVL 1
sac666Asked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
inprasConnect With a Mentor Commented:
Hi sac666
See which one suits U
http://www.thescarms.com/VBasic/ShellLnk.htm
or
Start a new project in Visual Basic. Form1 is created by default.


Add a Command button (Command1) to Form1.


Add the following code to the General Declarations section of Form1:

      Option Explicit

      'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
      'statement to Vb5stkit.dll.

      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

      Sub Command1_Click()

        Dim lReturn As Long

        'Add to Desktop
        lReturn = fCreateShellLink("..\..\Desktop", _
        "Shortcut to Calculator", "c:\Winnt\system32\calc.exe", "")

        'Add to Program Menu Group
        lReturn = fCreateShellLink("", "Shortcut to Calculator", _
        "c:\Winnt\system32\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", "")

      End Sub
 



Press the F5 key to run the project, and then click the Command button.


Or
http://www.thescarms.com/VBasic/Shortcuts.htm

Regards
0
All Courses

From novice to tech pro — start learning today.