小白变高手：简单几步解决显示隐藏的Flash文件和扩展名问题

缺点：要手刷新一下，才能看到效果

XP

隐藏和显示：文件

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")=1Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0,"REG_DWORD"
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" Else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1,"REG_DWORD"
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" EndIfSet WSHShell =Nothing
WScript.Quit (0)

显示和隐藏：扩展名

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt")=1Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0,"REG_DWORD"
wscript.sleep3000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" 'WshShell.SendKeys "{F5}"Else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1,"REG_DWORD"
wscript.sleep3000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" 'WshShell.SendKeys "{F5}"EndIfSet WSHShell =Nothing
WScript.Quit (0)

WIN10

隐藏和显示：文件

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
keyName = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
keyType ="REG_DWORD"If WSHShell.RegRead(keyName)=2Then
	WSHShell.RegWrite keyName,1, keyType
	'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" Else
	WSHShell.RegWrite keyName,2, keyType
	'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" EndIf
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL, UpdatePerUserSystemParameters")Set WSHShell =Nothing
WScript.Quit (0)

显示和隐藏：扩展名

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
keyName = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
keyType ="REG_DWORD"If WSHShell.RegRead(keyName)=0Then
	WSHShell.RegWrite keyName,1, keyType
Else
	WSHShell.RegWrite keyName,0, keyType
EndIf
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL, UpdatePerUserSystemParameters")Set WSHShell =Nothing
WScript.Quit (0)

参考资料