无忧启动论坛

标题: 为Win10及Win11系统桌面右键上添加一键隐藏系统文件及文件扩展名 [打印本页]

作者: baolizhu 时间: 2025-3-8 15:10
标题: 为Win10及Win11系统桌面右键上添加一键隐藏系统文件及文件扩展名
@Echo Off
Title 右键添加隐藏/显示文件及扩展名工具 & Color 0A
cd %systemroot%\system32
call :IsAdmin
set HideFileExt=%WINDIR%\SYSTEM32\HideFileExt.vbs
echo Dim WSHShell>%HideFileExt%
echo Set WSHShell = WScript.CreateObject("WScript.Shell")>>%HideFileExt%
echo. >>%HideFileExt%
echo ' 读取当前隐藏状态>>%HideFileExt%
echo If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 Then>>%HideFileExt%
echo    ' 若当前显示隐藏文件，则设置为隐藏>>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCR\Directory\Background\shell\HideFileExt\MuiVerb","显示文件及扩展名","REG_EXPAND_SZ">>%HideFileExt%
echo    WSHShell.Popup "已隐藏系统文件和扩展名", 1, "操作成功", vbInformation>>%HideFileExt%
echo Else>>%HideFileExt%
echo    ' 若当前隐藏文件，则设置为显示>>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCR\Directory\Background\shell\HideFileExt\MuiVerb","隐藏文件及扩展名","REG_EXPAND_SZ">>%HideFileExt%
echo    WSHShell.Popup "已显示系统文件和扩展名", 1, "操作成功", vbInformation>>%HideFileExt%
echo End If>>%HideFileExt%
echo. >>%HideFileExt%
echo ' 刷新资源管理器>>%HideFileExt%
echo WSHShell.SendKeys "{F5}">>%HideFileExt%
echo Set WSHShell = Nothing>>%HideFileExt%
Reg add "HKCR\Directory\Background\shell\HideFileExt" /v "MuiVerb" /t REG_SZ /d "隐藏文件及扩展名" /f
Reg add "HKCR\Directory\Background\shell\HideFileExt" /v "Icon" /t REG_EXPAND_SZ /d "%%WINDIR%%\System32\SHELL32.DLL,130" /f
Reg add "HKCR\Directory\Background\shell\HideFileExt\Command" /ve /t  REG_EXPAND_SZ /d "wscript.exe \"%%WINDIR%%\System32\HideFileExt.vbs\"" /f
Exit

:IsAdmin
Reg.exe query "HKU\S-1-5-19\Environment"
If Not %ERRORLEVEL% EQU 0 (
Cls & Echo You must have administrator rights to continue ...
Pause & Exit
)
Cls
goto:eof

作者: jho 时间: 2025-3-8 15:18
实用，谢谢

作者: 小灰兔 时间: 2025-3-8 15:28
感谢分享

作者: jh198354 时间: 2025-3-8 15:31

感谢分享！！！

作者: wn168cn@163.com 时间: 2025-3-8 15:32
感谢分享

作者: SYSTEM-BSOD-ZFS 时间: 2025-3-8 16:00
谢谢分享

作者: 114514csf 时间: 2025-3-8 16:50
感谢分享

作者: yc2428 时间: 2025-3-8 16:52
谢谢分享！

作者: iwkd00 时间: 2025-3-8 18:48
感谢分享

作者: sf9608 时间: 2025-3-8 19:26
感谢分享..

作者: zh886 时间: 2025-3-8 21:02
感谢楼主分享！

作者: ABCPE 时间: 2025-3-8 22:13
谢谢分享！！！

作者: wang1126 时间: 2025-3-9 06:23
谢谢楼主分享

作者: guong 时间: 2025-3-9 12:33
感谢分享！

作者: ABCPE 时间: 2025-3-9 17:12
谢谢分享！！！

作者: 2012jinlong 时间: 2025-3-11 13:29
运行过程中发现有权限错误，我优化了代码:
@Echo Off
Title 右键添加隐藏/显示文件及扩展名工具 & Color 0A
cd %systemroot%\system32
call :IsAdmin

set HideFileExt=%WINDIR%\SYSTEM32\HideFileExt.vbs

REM 创建VBS脚本
echo Dim WSHShell>%HideFileExt%
echo Set WSHShell = WScript.CreateObject("WScript.Shell")>>%HideFileExt%
echo. >>%HideFileExt%
echo ' 读取当前隐藏状态>>%HideFileExt%
echo If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 Then>>%HideFileExt%
echo    ' 若当前显示隐藏文件，则设置为隐藏>>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Classes\Directory\Background\shell\HideFileExt\MuiVerb","显示文件及扩展名","REG_SZ">>%HideFileExt%
echo    WSHShell.Popup "已隐藏系统文件和扩展名", 1, "操作成功", vbInformation>>%HideFileExt%
echo Else>>%HideFileExt%
echo    ' 若当前隐藏文件，则设置为显示>>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, "REG_DWORD">>%HideFileExt%
echo    WSHShell.RegWrite "HKCU\Software\Classes\Directory\Background\shell\HideFileExt\MuiVerb","隐藏文件及扩展名","REG_SZ">>%HideFileExt%
echo    WSHShell.Popup "已显示系统文件和扩展名", 1, "操作成功", vbInformation>>%HideFileExt%
echo End If>>%HideFileExt%
echo. >>%HideFileExt%
echo ' 刷新资源管理器>>%HideFileExt%
echo WSHShell.SendKeys "{F5}">>%HideFileExt%
echo Set WSHShell = Nothing>>%HideFileExt%

REM 创建注册表项（用户级别）
Reg add "HKCU\Software\Classes\Directory\Background\shell\HideFileExt" /v "MuiVerb" /t REG_SZ /d "隐藏文件及扩展名" /f
Reg add "HKCU\Software\Classes\Directory\Background\shell\HideFileExt" /v "Icon" /t REG_EXPAND_SZ /d "%%WINDIR%%\System32\SHELL32.DLL,130" /f
Reg add "HKCU\Software\Classes\Directory\Background\shell\HideFileExt\Command" /ve /t REG_EXPAND_SZ /d "wscript.exe \"%%WINDIR%%\System32\HideFileExt.vbs\"" /f

Exit

:IsAdmin
Reg.exe query "HKU\S-1-5-19\Environment"
If Not %ERRORLEVEL% EQU 0 (
Cls & Echo You must have administrator rights to continue ...
Pause & Exit
)
Cls
goto:eof

作者: luojiulin 时间: 2025-3-17 08:20
感谢分享。。

作者: wxqhi 时间: 2025-3-17 13:44
感谢分享！！！

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)