daily pastebin goal
48%
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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top