Folder Status

[Guest]

I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[Keith Miller MVP]

Sounds like the index for saved views may be getting full & deleting some entries to make room for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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

 

[Guest]

I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

Sounds like the index for saved views may be getting full & deleting some entries to make room for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[Keith Miller MVP]

Sorry, didn't check it after using '_' to avoid line wrap

Try this:

----------------------------------
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")

Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
---------------------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

Sounds like the index for saved views may be getting full & deleting some entries to make room for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[Guest]

Sorry, looks like another Widows Script Host Error...
-----------
Script: C:\Documents and Settings\... Text.vbs
Line: 16
Char: 1
Error: Unable to open registry key
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size" for reading.
Code: 80070002
Source: WshShell.RegRead
-----------

Sorry, didn't check it after using '_' to avoid line wrap

Try this:

----------------------------------
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")

Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
---------------------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

Sounds like the index for saved views may be getting full & deleting some entries to make room for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[Keith Miller MVP]

OK. That means you don't have a 'BagMRU Size' entry in the registry, so windows is defaulting to
saving 400 folders.

You can run the edit here:

http://www.kellys-korner-xp.com/xp_tweaks.htm

Line 2, left-hand column

It will increase your limit, but also wipe out currently saved views.

If you want to set view templates so that all subfolders of a particular folder use the same
settings, download my script:

http://mysite.verizon.net/res18hr7/FVM3.zip

It will give you the option to up your limit, in addition to preserving or deleting currently saved
views.



--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

Sorry, looks like another Widows Script Host Error...
-----------
Script: C:\Documents and Settings\... Text.vbs
Line: 16
Char: 1
Error: Unable to open registry key
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size" for reading.
Code: 80070002
Source: WshShell.RegRead
-----------

Sorry, didn't check it after using '_' to avoid line wrap

Try this:

----------------------------------
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")

Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
---------------------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

:

Sounds like the index for saved views may be getting full & deleting some entries to make

room
for

others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[David Candy]

Why do you keep saying 400. It is 5000 in SP2.

--
--------------------------------------------------------------------------------------------------
Goodbye Web Diary
http://margokingston.typepad.com/harry_version_2/2005/12/thank_you_and_g.html#comments
=================================================

OK. That means you don't have a 'BagMRU Size' entry in the registry, so windows is defaulting to
saving 400 folders.

You can run the edit here:

http://www.kellys-korner-xp.com/xp_tweaks.htm

Line 2, left-hand column

It will increase your limit, but also wipe out currently saved views.

If you want to set view templates so that all subfolders of a particular folder use the same
settings, download my script:

http://mysite.verizon.net/res18hr7/FVM3.zip

It will give you the option to up your limit, in addition to preserving or deleting currently saved
views.



--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

Sorry, looks like another Widows Script Host Error...
-----------
Script: C:\Documents and Settings\... Text.vbs
Line: 16
Char: 1
Error: Unable to open registry key
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size" for reading.
Code: 80070002
Source: WshShell.RegRead
-----------

Sorry, didn't check it after using '_' to avoid line wrap

Try this:

----------------------------------
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")

Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
---------------------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

:

Sounds like the index for saved views may be getting full & deleting some entries to make room
for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into
notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[D. Spencer Hines]

Good Question.

DSH

"David Candy" <.> wrote in message

Why do you keep saying 400. It is 5000 in SP2.

 

[Keith Miller MVP]

I haven't gotten around to installing SP2 yet

We don't know whether or not the O.P. has...

But doesn't SP2 up the limit by setting 'BagMRU Size' to 5000? Or has the default been changed in
code? The value was not in the O.P.'s registry, so the hard-coded default would be in effect, no?

--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


"David Candy" <.> wrote in message Why do you keep saying 400. It is 5000 in SP2.

--
--------------------------------------------------------------------------------------------------
Goodbye Web Diary
http://margokingston.typepad.com/harry_version_2/2005/12/thank_you_and_g.html#comments
=================================================

OK. That means you don't have a 'BagMRU Size' entry in the registry, so windows is defaulting to
saving 400 folders.

You can run the edit here:

http://www.kellys-korner-xp.com/xp_tweaks.htm

Line 2, left-hand column

It will increase your limit, but also wipe out currently saved views.

If you want to set view templates so that all subfolders of a particular folder use the same
settings, download my script:

http://mysite.verizon.net/res18hr7/FVM3.zip

It will give you the option to up your limit, in addition to preserving or deleting currently saved
views.



--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

Sorry, looks like another Widows Script Host Error...
-----------
Script: C:\Documents and Settings\... Text.vbs
Line: 16
Char: 1
Error: Unable to open registry key
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size" for reading.
Code: 80070002
Source: WshShell.RegRead
-----------

Sorry, didn't check it after using '_' to avoid line wrap

Try this:

----------------------------------
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")

Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
---------------------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

:

Sounds like the index for saved views may be getting full & deleting some entries to make room
for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into
notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?

 

[David Candy]

It's not there by default.

Most people's computers install service packs automatically. Assuming they haven't would be the minority of cases.

Also older XP stored 200 folders. The 400 comes from 200 for Shell (local folders) and 200 for ShellNoRoam (network folders and desktop). The bagmru applies only to where it is set (shell or shellnoroam).

I don't know if 5000 is 2500 x 2, 5000 x 2, or maybe they now have different defaults.

See http://support.microsoft.com/default.aspx/kb/813711
--
--------------------------------------------------------------------------------------------------
Goodbye Web Diary
http://margokingston.typepad.com/harry_version_2/2005/12/thank_you_and_g.html#comments
=================================================

I haven't gotten around to installing SP2 yet

We don't know whether or not the O.P. has...

But doesn't SP2 up the limit by setting 'BagMRU Size' to 5000? Or has the default been changed in
code? The value was not in the O.P.'s registry, so the hard-coded default would be in effect, no?

--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


"David Candy" <.> wrote in message Why do you keep saying 400. It is 5000 in SP2.

--
--------------------------------------------------------------------------------------------------
Goodbye Web Diary
http://margokingston.typepad.com/harry_version_2/2005/12/thank_you_and_g.html#comments
=================================================

OK. That means you don't have a 'BagMRU Size' entry in the registry, so windows is defaulting to
saving 400 folders.

You can run the edit here:

http://www.kellys-korner-xp.com/xp_tweaks.htm

Line 2, left-hand column

It will increase your limit, but also wipe out currently saved views.

If you want to set view templates so that all subfolders of a particular folder use the same
settings, download my script:

http://mysite.verizon.net/res18hr7/FVM3.zip

It will give you the option to up your limit, in addition to preserving or deleting currently saved
views.



--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]

Sorry, looks like another Widows Script Host Error...
-----------
Script: C:\Documents and Settings\... Text.vbs
Line: 16
Char: 1
Error: Unable to open registry key
"HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size" for reading.
Code: 80070002
Source: WshShell.RegRead
-----------
:

Sorry, didn't check it after using '_' to avoid line wrap

Try this:

----------------------------------
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")

Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
---------------------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I'm sorry to say I didn't get anything that looked like a report... a
'Windows Script Host' dialogue box appeared with the following message:
------------
Script: C:\Documents and Settings\... Text.vbs
Line: 1
Char: 23
Error: Syntax Error
Code: 800A03EA
Source: Microsoft VBScript compilation error
-----------
I probably made a mistake in following your instructions. I can say that the
folders I am talking about are all in 'My Documents'. I don't know if the
problem affects any others. Thanks for your help and I hope you can advise
further.

:

Sounds like the index for saved views may be getting full & deleting some entries to make room
for
others. Are the folders that lose their settings on the desktop?

To get a better idea of what's going on, please copy the text between the lines below into
notepad
and save as a .vbs file. Then double-click the file to run it. It is a small script which will
report on several reg entries relating to saved views. Please post back with the info obtained.

--------------------------------
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")

Set oRegistry = & _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

iLimit = oWshShell.RegRead(conBagMRUSize)
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
--------------------------------------------


--
Good Luck,

Keith
Microsoft MVP [Windows XP Shell/User]


I have left a thread on here before about getting rid of pictures which I
assigned to one folder that were subsequently being assigned to nearly all
the others at random. I was informed how to stop this by deleting Thumb.db
via Command Prompt and that worked fine.

Unfortunately I have another problem with the folders in windows which I
suspect is associated with the original issue. The status of my folders seem
to change without my direct intervention... they will become or cease to be
document, video, picture or music folders without my altering their
particular folder properties. This is particularly annoying because the only
way I can restore normality is to regularly reset the general folder view and
return the few that I need to see in a particular way to the view I want. Can
anyone help?