' Source: MSDN Magazine Article by Dino Esposito...
' ContextMenu.vbs
' Adds a 'View with Notepad' menu item to any file's context menu
' -----------------------------------------------------------
Option Explicit
Dim shell
Dim REG_HKCR_ALL
' The registry path where our new entries should be added
' If your registry doesn't contain a Shell node,
' it'll be silently created
REG_HKCR_ALL = "HKCR\*\Shell"
' Adds a new key and a couple of entries.
' (The item will have an underlined 'N')
Set shell = CreateObject("WScript.Shell")
shell.RegWrite REG_HKCR_ALL & "\Notepad\", _
"View with &Notepad", _
"REG_SZ"
shell.RegWrite REG_HKCR_ALL & "\Notepad\Command\", _
"%WINDIR%\notepad.exe %1", _
"REG_EXPAND_SZ"
Sigh...and all these years, I've been typing "WindowKey-R-n-o-t-e-p-a-d-Enter" then alt-tabbing, starting a drag then alt-tabbing and dropping onto Notepad all in ~650 milliseconds, and I thought nothing could be faster...;)
Hosting By