Chris said:
Thankyou Keith. I have now found a Microsoft reference:
http://support.microsoft.com/kb/813711/
and the strange thing about that is that it says the problem is fixed by installing the latest
service pack.
Now, I always run a fully patched system, and have had SP2 since the day it came out, so what do
Microsoft mean by that?
And thanks for your understanding response to my paranoia!
I will check out references to your patch - and the fact that you invited me to lends credit to
your authenticity. I am the most ridiculously cautious person - and it has paid off handsomely!
Do Microsoft mean you have to install SP2 - and then do the workaround?
As well?
No, installation of SP2 should add the entry. But have you taken a look for yourself?
You can copy the text below & save as a .vbs file. When you run it, it will tell you your view
limit, number of index entries, & number of actual saved views (these numbers can differ because
'Apply to All Folders' & 'Reset All Folders' delete the views while leaving the index entries).
This will let us know if your problem is caused by a full index. I know you're cautious, but you
can see it only reads information (RegRead & EnumKey) from the registry -- it doesn't create or
modify anything.
----------------------------
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