SHARE
TWEET

Untitled

a guest Jul 17th, 2017 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dim wshShl, oShellLink
  2. dim strDesktop
  3.  
  4. set wshShl = WScript.CreateObject("WScript.Shell")
  5.  
  6. ' Create A Shortcut on the Desktop for  VBScript editor (Notepad2)
  7. ' The WshSpecialFolder object is a collection It contains the entire set of windows
  8. ' Special folders such as the desktop folder. The spcial folder name is used to
  9. ' index into the collection to retrieve the folder you want.
  10. strDesktop = wshShl.SpecialFolders("Desktop")
  11.  
  12. 'Location, Shortcut; Name Shortcut
  13. set oShellLink = wshShl.CreateShortcut(strDesktop & "\NotepadTwo.lnk")
  14. 'Location of program
  15. oShellLink.TargetPath = "U:\Text-Editor-Note\Notepad2.exe"
  16. ' Tell to open max
  17. oShellLink.WindowStyle = 3
  18. ' shotcut key
  19. oShellLink.Hotkey = "CTRL+SHIFT+E"
  20. 'Icon
  21. oShellLink.IconLocation = "U:\Text-Editor-Note\Notepad2.exe"
  22. 'Comment
  23. oShellLink.Description = "ShtCut Edit - I Love This"
  24. ' Specify the Working Dir
  25. oShellLink.WorkingDirectory = "U:\"
  26. oShellLink.Save
RAW Paste Data
Top