Crear un acceso directo en el menú inicio de windows

Categoría: VBA

Para crear un acceso directo en el menú inicio de windows:

  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

  Private Sub Form_Load()
     iLong = fCreateShellLink("", "Notepad++", "C:\Archivos de Programa\notepad++\notepad++.exe", "")
  End Sub