Set WshShell = CreateObject("WScript.Shell")
strDesktopPath = WshShell.SpecialFolders("Desktop")
'
' or strDesktopPath = WshShell.SpecialFolders("AllUsersDesktop")
'
Set objShortcutUrl = WshShell.CreateShortcut(strDesktopPath & "\textpad.lnk")
objShortcutUrl.TargetPath = "C:\Program Files\TextPad 4\textpad.exe"
objShortcutUrl.Description = "Start Textpad"
objShortcutUrl.Save
To create an Internet shortcut, see this HowTo
Written and compiled by Réal Gagnon ©1998-2012
[ home ]