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

￡神魔★判官ぃ 2022-12-31 04:26 158阅读 0赞

### 显示隐藏文件、扩展名 ###

*  \`缺点：要手刷新一下，才能看到效果\`
 *  XP
 *   *  隐藏和显示：文件
     *  显示和隐藏：扩展名
 *  WIN10
 *   *  隐藏和显示：文件
     *  显示和隐藏：扩展名
 *  参考资料

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

# 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][_ Regshot]

[_ Regshot]: https://jerryjin.blog.csdn.net/article/details/111837920