Jethro said:
How do I do same for desktop folders?
Assuming you have checked 'Remember each folder's view settings' (found on the 'View' tab of the
'Folder Options' dialog.
If your desktop folders aren't remembering view settings, the most likely cause is that you've
reached your limit for saved views and the settings for these folders are being deleted to make room
for new ones.
If the value named 'BagMRU Size' in not found in the registry under:
[HKCU\Software\Microsoft\Windows\ShellNoRoam]
Explorer defaults to remembering views for 400 folders.
SP2 sets 'BagMRU Size' at 5000. The maximum allowed is 8000.
If you don't mind losing your saved views for all folders, use Kelly's reg file to set the view
limit at it's maximum and clear the current settings, giving you a fresh start.
http://www.kellys-korner-xp.com/xp_tweaks.htm
Line 2: Increase Folder View Size Limit to 8000
If you want to check the current limit, number of index entries & number of saved views, copy the
text below and save as a .vbs file, then run the script.
-----------------------------------------
Const conBagMRUSize = _
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size"
Const conBagMRUNodeSlots = _
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU\NodeSlots"
Const HKCU = &H80000001
Const conBagsPath = "Software\Microsoft\Windows\ShellNoRoam\Bags"
dim oWshShell, oRegistry, iLimit, iMRUEntries, arrSubKeys, iBagCount
'Assign objects
Set oWshShell = CreateObject("WScript.Shell")
s1 = "winmgmts:{impersonationLevel=impersonate}"
s2 = "!\\.\root\default:StdRegProv"
Set oRegistry = GetObject(s1 & s2)
On Error Resume Next
iLimit = oWshShell.RegRead(conBagMRUSize)
If Err.Number <> 0 Then iLimit = 400
On Error Goto 0
iMRUEntries = UBound(oWshShell.RegRead(conBagMRUNodeSlots)) + 1
oRegistry.EnumKey HKCU, conBagsPath, arrSubKeys
iBagCount = UBound(arrSubKeys) + 1
sMsg = "Max Views = " & iLimit & vbcrlf & _
"Index Entry Count = " & iMRUEntries & vbcrlf & _
"Saved View Count = " & iBagCount
Msgbox sMsg
---------------------------------------