'Keep running the script even if it tries to read a key/value that doesn't exist On Error Resume Next Dim WshShell, fso, bKey, cn, p1, mybox, entryname, WinFolder Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") WinFolder = fso.GetSpecialFolder(0) Set fso = Nothing p1 = "HKEY_CLASSES_ROOT\Directory\shell\" 'Get the name that they want for the entry t = "Add a Folder to the Start Button Right Click" cn = InputBox("Enter a descriptive name for the entry. It does not have to " & _ "be the actual name of the folder." & vbCR & vbCR & "Enter the name of " & _ "an existing item to change it.", t, n) 'Check for empty string or Cancel If cn <> "" Then entryname = cn 'Create the registry key string p1 = p1 & cn & "\" wshshell.RegWrite p1 & "", cn Else 'if the string was empty or they clicked Cancel WScript.Quit End If bKey = WshShell.RegRead(p1 & "command\") n = wshshell.RegRead(bKey & "") 'Give a default choice n = "C:\Documents and Settings" t = "Add a Folder to the Start Button Right Click" cn = InputBox("Enter the drive and folder to open Explorer in. Documents and Settings" & _ "\ is not recommended in a multi-user system.", t, n) If cn <> "" Then cn = Winfolder & "\EXPLORER.EXE /e," & cn wshshell.RegWrite p1 & "command\", cn Else Wscript.Quit End If MsgBox entryname & " has been added to the Start Button right click menu.",4096,"Finished!"