On Error Resume Next Dim WshShell, bKey, cn, p1, p2, mybox, entryname Set WshShell = WScript.CreateObject("WScript.Shell") p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Music" p2 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Music" n = "C:\Documents and Settings" t = "Add a Folder to the Start Menu - Top Right" cn = InputBox("Enter the drive and folder to be listed. Note: It will pick up the name of the folder. Also, this replaces the My Music Folder on the Start Menu. To control the display views use the My Music options under Advanced.", t, n) If cn <> "" Then entryname = cn wshshell.RegWrite p1, cn wshshell.RegWrite p2, cn, "REG_EXPAND_SZ" bKey = WshShell.RegRead(p1 & "") bKey = WshShell.RegRead(p2 & "") Else WScript.Quit End If MsgBox entryname & " has been added to the Start Menu. You must Log Off/Log On for the changes to take effect or End Process on Explorer.exe.",4096,"Finished!"