显示隐藏文件 和 显示隐藏扩展名

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

XP

隐藏和显示：文件

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

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

Else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1,"REG_DWORD"
wscript.sleep 1000
WshShell.Run ("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters") 
'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" 
End If

Set WSHShell = Nothing
WScript.Quit (0)

显示和隐藏：扩展名

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 1 Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0,"REG_DWORD"
wscript.sleep 3000
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.sleep 3000
WshShell.Run ("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters") 
'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" 
'WshShell.SendKeys "{F5}"
End If

Set 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) = 2 Then
	WSHShell.RegWrite keyName, 1, keyType
	'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" 
Else
	WSHShell.RegWrite keyName, 2, keyType
	'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" 
End If

wscript.sleep 1000
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) = 0 Then
	WSHShell.RegWrite keyName, 1, keyType
Else
	WSHShell.RegWrite keyName, 0, keyType
End If

wscript.sleep 1000
WshShell.Run ("RunDll32.exe USER32.DLL, UpdatePerUserSystemParameters") 

Set WSHShell = Nothing
WScript.Quit (0)

参考资料

注册表 快照工具 Regshot