Shortcut

Create or Edit a .lnk Shortcut (Shell link)








' Create or Edit a Shortcut (Shell link .lnk)

Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\start notepad.lnk")
link.Arguments = "test.txt"
link.Description = "notepad shortcut"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "c:\windows\system32\notepad.exe,0"
link.TargetPath = "c:\windows\system32\notepad.exe"
link.WindowStyle = 1
link.WorkingDirectory = "c:\temp"
link.Save



search for scripts

VbsEdit contains all these sample scripts!

Download Now!