Create Shortcut for Notepad on Desktop (VBA)
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
»
- Vishesh's blog
- Login or register to post comments
- 15172 reads
Recent comments
5 years 36 weeks ago
6 years 22 weeks ago
6 years 34 weeks ago
6 years 37 weeks ago
6 years 38 weeks ago
6 years 43 weeks ago
6 years 52 weeks ago
7 years 2 days ago
7 years 3 days ago
7 years 3 days ago