Archived from groups: microsoft.public.windowsxp.help_and_support (
More info?)
Thank you very much for all your help.
--
Lorraine
``````````````
"David Candy" <.> wrote in message
news:%23LY5s3RhFHA.1416@TK2MSFTNGP09.phx.gbl...
You are a user, you need to take collective responsiblity (I'm the
only one with a right to apportion blame). Someone is too blame.
Look and you'll see that it does old start. and favourites. Thise are
both in XP.
These two lines clears Classic Start
> Sh.RegDelete
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Start
> Menu\"
> If Err.number=-2147024894 then err.clear
So Copy them and insert under the existing lines and stick a 2 on the
end of the reg key
> Sh.RegDelete
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Start
> Menu2\"
> If Err.number=-2147024894 then err.clear
--
--------------------------------------------------------------------------------------------------
http://webdiary.smh.com.au/archives/_comment/001075.html
=================================================
"Lorraine W" <ltw@?_telus.net> wrote in message
news:OLMb2MOhFHA.1244@TK2MSFTNGP14.phx.gbl...
> Thanks for all this wonderful info David - but I forgot to mention
> that I'm using IE6 with all patches and updates. I presume this
> will
> work for this version?
> --
> Lorraine
> ``````````````
> PS - thanks for pointing out how lazy I am, and btw - I was not one
> of
> the people who "whinged at MS" as you so aptly put it.
>
>
> "David Candy" <.> wrote in message
> news:%23Ds70jNhFHA.3448@TK2MSFTNGP12.phx.gbl...
> Well you can't. People like you whinged at MS over this featrure in
> 95/NT4 so they gave you what you asked for. This only does classic
> but
> just modify it. How important is stuff like this. You are lazy.
>
>
> IE4's Desktop Update (which is included in Windows 98) added the
> ability to move the order of items on the Start Menu. A consequence
> of
> this is that there is no longer automatic sorting of the menus. This
> vbs file sorts the menu alphabetically with sub menus at the top.
>
> IE5's Desktop Update added a Sort by Name to the right click menu
> for
> every sub menu that sorts only that sub menu.
>
> These two scripts sorts all sub menus for both IE5's and IE4's
> Desktop
> Update.
>
> Notes
> a.. IE5's Desktop Update is installed on every Windows 98 Second
> Edition system.
> b.. IE4's Desktop Update is installed on every Windows 98 system.
> c.. IE5's Desktop Update is installed on every Windows 98 system
> that IE5 is installed.
> d.. IE4's Desktop Update is installed on Windows 95 systems if it
> was chosen when installing IE4.
> e.. IE5's Desktop Update is only installed on Windows 95 systems if
> IE4's Desktop Update was installed before IE4 was installed.
> f.. To move the order of items on a menu click and drag the item to
> where it should be. A black bar will show where it will be.
> g.. To sort a menu with IE5's Desktop Update, right click anywhere
> on the menu to be sorted and choose Sort by Name.
> Sort All Menus.vbs
> Sort All Menus.vbs will prompt to sort
>
> a.. the Start Menu, the Documents menu, the Programs menu, and its'
> sub menus
> b.. the Favourites menu and it's sub menus
> The first time each of these is run they register their path in the
> registry. The second and subsequent times they are run only the name
> needs to be typed into the Start - Run dialog box. They can be
> renamed
> without problems.
>
> Copy the following lines into a New Text Document (use Notepad) and
> name it SortAllMenus.vbs. The name needs to be enclosed in quotation
> marks in notepad else notpad with add a .txt suffix to the name.
>
> 'SortAllMenus.vbs
> 'Sorts the Start and Favourites menus.
> '
> 'Serenity Macros
http://www.angelfire.com/biz/serenitymacros
> 'David Candy davidc@sia.net.au
> '
> On Error Resume Next
> vbPara=vbCRLF & vbCRLF
> strExplain="Sort All Menus sorts the Start Menu and the Favourites
> menu." & vbPara & "You will be prompted to sort the Start Menu and
> all
> its' sub menus then to sort the Favourites menu and all its' sub
> menus." & vbPara & "This is for use with Windows 98, Windows 95 with
> IE4's Desktop Update, Windows 98 upgraded with IE5, or Windows 95
> with
> IE4's Desktop Update upgraded with IE5." & vbPara & "Continue?"
> strTitle="Sort All Menus"
>
> Dim Sh
> Set Sh = WScript.CreateObject("WScript.Shell")
> ReportErrors "Creating Shell"
> Sh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App
> Paths\" & Wscript.ScriptName & "\", Chr(34) & Wscript.ScriptFullName
> &
> Chr(34)
> Sh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App
> Paths\" & Left(Wscript.ScriptName, Len(Wscript.ScriptName)-3) &
> "exe"
> & "\", Chr(34) & Wscript.ScriptFullName & Chr(34)
> ReportErrors "Updating App Paths"
> If MsgBox(strExplain ,vbQuestion + vbYesNo , strTitle) =6 then
> If MsgBox("Sort the Start Menu and all its' sub menus?",vbQuestion +
> vbYesNo + vbDefaultButton2, strTitle) =6 then
> Sh.RegDelete
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Start
> Menu\"
> If Err.number=-2147024894 then err.clear
> ReportErrors "Sorting Start and Programs menu"
> End If
> If MsgBox("Sort the Favourites Menu and all its' sub
> menus?",vbQuestion + vbYesNo + vbDefaultButton2, strTitle) =6 then
> Sh.RegDelete
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Favorites\"
> If Err.number=-2147024894 then err.clear
> ReportErrors "Sorting Favourites menu"
> End If
> End If
>
> ReportErrors "Main"
> VisitSerenity
>
> Sub ReportErrors(strModuleName)
> If err.number<>0 then Msgbox "An unexpected error occurred. This
> dialog provides details on the error." & vbCRLF & vbCRLF & "Error
> Details " & vbCRLF & vbCRLF & "Script Name" & vbTab &
> Wscript.ScriptFullName & vbCRLF & "Module" & vbtab & vbTab &
> strModuleName & vbCRLF & "Error Number" & vbTab & err.number &
> vbCRLF
> & "Description" & vbTab & err.description, vbCritical + vbOKOnly,
> "Something unexpected"
> Err.clear
> End Sub
>
> Sub VisitSerenity
> If MsgBox("This program came from the Serenity Macros Web Site" &
> vbCRLF & vbCRLF & "Would you like to visit Serenity's Web Site
> now?",
> vbQuestion + vbYesNo + vbDefaultButton2, "Visit Serenity Macros") =6
> Then
> sh.Run "http:\\www.angelfire.com\biz\serenitymacros"
> End If
> End Sub
> Sort Start Menu.vbs
> Sort Start Menu.vbs sorts the Start Menu, Programs menu and its' sub
> menus, Favourites menu and its' sub menus, and the documents menu
> without any prompting. It's for automatically sorting the Start Menu
> and can be used in Task Scheduler or the Startup menu.
>
> Copy the following lines into a New Text Document (use Notepad) and
> name it SortStartMenuvbs. The name needs to be enclosed in quotation
> marks in notepad else notpad with add a .txt suffix to the name.
>
> 'SortStartMenu.vbs
> 'Sorts the Start and Favourites menus without prompting
> '
> 'Serenity Macros
http://www.angelfire.com/biz/serenitymacros
> 'David Candy davidc@sia.net.au
> '
> On Error Resume Next
> strTitle="Sort All Menus"
>
> Dim Sh
> Set Sh = WScript.CreateObject("WScript.Shell")
> ReportErrors "Creating Shell"
> Sh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App
> Paths\" & Wscript.ScriptName & "\", Chr(34) & Wscript.ScriptFullName
> &
> Chr(34)
> Sh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App
> Paths\" & Left(Wscript.ScriptName, Len(Wscript.ScriptName)-3) &
> "exe"
> & "\", Chr(34) & Wscript.ScriptFullName & Chr(34)
> ReportErrors "Updating App Paths"
> Sh.RegDelete
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Start
> Menu\"
> If Err.number=-2147024894 then err.clear
> ReportErrors "Sorting Start and Programs menu"
> Sh.RegDelete
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Favorites\"
> If Err.number=-2147024894 then err.clear
> ReportErrors "Sorting Documents menu"
> ReportErrors "Main"
> Sub ReportErrors(strModuleName)
> If err.number<>0 then Msgbox "An unexpected error occurred. This
> dialog provides details on the error." & vbCRLF & vbCRLF & "Error
> Details " & vbCRLF & vbCRLF & "Script Name" & vbTab &
> Wscript.ScriptFullName & vbCRLF & "Module" & vbtab & vbTab &
> strModuleName & vbCRLF & "Error Number" & vbTab & err.number &
> vbCRLF
> & "Description" & vbTab & err.description, vbCritical + vbOKOnly,
> "Something unexpected"
> Err.clear
> End Sub
>
> --
> --------------------------------------------------------------------------------------------------
>
http://webdiary.smh.com.au/archives/_comment/001075.html
> =================================================
> "Lorraine W" <ltw@?_telus.net> wrote in message
> news:%23JfcvbNhFHA.576@TK2MSFTNGP15.phx.gbl...
>>I read the following in a techie newsletter that I get:
>>
>> "The tip tells how to "sort Internet Explorer Favorites in one
>> go", rather than "organizing the IE Favorites menu by
>> right-clicking
>> an item and selecting Sort by Name.... The
>> problem
>> with this technique," the tip states, "is that you must repeat it
>> for
>> each submenu, and that gets kind of dull after a while."
>> The proposed solution is to edit the key in the Registry
>> called
>>
>>
>> Hkey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Favorites
>>
>> by deleting the Order value there. I tried it and after
>> exiting Regedit and starting Internet Explorer, my Favorites get
>> sorted automatically in alphabetical order, just as I like it. "
>>
>> Am I missing something? I tried this, but it doesn't seem to work
>> for
>> me. Every time I re-boot, the order value in the registry key is
>> back, and items that I add (to either start menu or favorites) are
>> not
>> sorted in alphabetical order. I previously had a problem with a
>> corrupted registry key for the Blocked senders list in OE. I'm
>> wondering if this could be the case here.
>>
>> I'd really like to get these items to list alphabetically on their
>> own, without having to do it manually every time I add something.
>> If
>> anyone can anyone help with this, I'd really appreciate it.
>>
>> Thanks,
>>
>> Lorraine
>> ``````````````
>>
>>
>>
>
>