Create Shortcut for Notepad on Desktop (VBA)

Vishesh's picture
The following code creates a shortcut for notepad on Desktop. You can modify the code for creating shortcuts to other applications as well.
Sub CreateNotepadShortcut()
    Dim objWSH          As Object
    Dim objShortCut     As Object
    Dim strPath         As String
 
'----If Early Binding set a referece to Windows Script Host Object Module--
    'Dim objWSH As New IWshRuntimeLibrary.IWshShell_Class
    'Dim objShortCut As IWshRuntimeLibrary.IWshShortcut_Class
'==========================================================================

'----Late Binding----------------------------------------------------------
    Set objWSH = CreateObject("WScript.Shell")
'==========================================================================

    strPath = objWSH.SpecialFolders("Desktop") & "\" & "Notepad.lnk"
    Set objShortCut = objWSH.CreateShortcut(strPath)
    With objShortCut
        .TargetPath = Environ("WINDIR") & "\" & "notepad.exe"
        .Description = "Shortcut to Notepad"
        .IconLocation = "C:\Windows\System\Shell32.dll,5"
        .RelativePath = "C:\Temp"
        .WorkingDirectory = "C:\"
        .Hotkey = "Ctrl+Alt+C"
        .Save
    End With
 
    Set objWSH = Nothing
    Set objShortCut = Nothing
End Sub