' 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!



Download   Home   Scripts

Copyright © 2001-2022 adersοft