Remove the hidden attribute on Temporary Internet Files

Remove the hidden attribute on Temporary Internet Files
I have Windows XP on my computer. I would like to withdraw the "hidden" attribute in the Temporary Internet Files folder. In the BDR, I have checked nohidden and SHOWALL. I have the default 2, 2 and 1, 2 for keys CheckedValue and DefaultValue. But apparently that is not enough. Somebody know how it can be done?
Reply With Quote
#2
Old 22-10-2009
deveritt's Avatar
deveritt deveritt is offline
Member

Join Date: Apr 2008
Posts: 2,528
Re: Remove the hidden attribute on Temporary Internet Files
It is the Local Settings folder (which is located in the Temporary Internet Files) is hidden, Temporary Internet Files is visible and making a property, the "hidden" is grayed impossible to check.
Reply With Quote
#3
Old 22-10-2009
KADEEM KADEEM is offline
Member

Join Date: Aug 2009
Posts: 53
Re: Remove the hidden attribute on Temporary Internet Files
My Local Settings are not hidden, only Temporary Internet Files remains invisible. I accessed through the Internet Options. The "hidden" is grayed impossible to check. Or rather to shoot.
Reply With Quote
#4
Old 22-10-2009
johnson22's Avatar
johnson22 johnson22 is offline
Member

Join Date: May 2008
Posts: 2,111
Re: Remove the hidden attribute on Temporary Internet Files
To enable/disable show hidden files/folders save the below code as .vbs file on your hard drive and then double click on it to run.

Code:

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then
On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 1 then

WSHShell.RegWrite p, 2, itemtype
End If

If n = 2 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now ENABLED", 64, "Hidden Files and Folders")
End If

If n = 1 Then
WshShell.Regwrite p, 2, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now DISABLED", 64, "Hidden Files and Folders")
End If

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr , 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"

End If

Reply With Quote