@echo off
Setlocal enabledelayedexpansion
reg query HKU\S-1-5-20>nul || echo;CreateObject^("Shell.Application"^).ShellExecute "%~f0", "", "", "runas", 1 > "%temp%\getadmin.vbs" && cscript //b "%temp%\getadmin.vbs" && exit /b & del "%temp%\getadmin.vbs" /f /q>nul 2>nul
pushd "%CD%"&& CD /D "%~dp0"
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "MUIVerb" /d "重置桌面" /f
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "Position" /d "Bottom" /f
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "SeparatorAfter" /d "" /f
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "SubCommands" /d "" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\1" /ve /d "重启桌面" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\1\command" /ve /d "wscript %systemroot%\resetexplorer.vbs" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\2" /ve /d "关闭重复文件夹" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\2\command" /ve /d "wscript %systemroot%\resetexplorer.vbs --CloseDuplicate" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\3" /ve /d "关闭所有文件夹" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\3\command" /ve /d "wscript %systemroot%\resetexplorer.vbs --CloseAll" /f
echo On Error Resume Next>>resetexplorer.vbs
echo Dim ArrayPathFonders(), ShellFonders, WindowOfShellFonders, ShellExplorer>>resetexplorer.vbs
echo Set DictionaryFonders = CreateObject("Scripting.Dictionary")>>resetexplorer.vbs
echo Set ShellFonders = CreateObject("Shell.Application")>>resetexplorer.vbs
echo Set WindowOfShellFonders=ShellFonders.Windows()>>resetexplorer.vbs
echo Set ShellExplorer = CreateObject("WScript.Shell")>>resetexplorer.vbs
echo DictionaryFonders.Add "::{679F85CB-0220-4080-B29B-5540CC05AAB6}",True>>resetexplorer.vbs
echo DictionaryFonders.Add "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",True>>resetexplorer.vbs
echo DictionaryFonders.Add ShellExplorer.SpecialFolders("Desktop"),True>>resetexplorer.vbs
echo DictionaryFonders.Add ShellExplorer.SpecialFolders("AllUsersDesktop"),True>>resetexplorer.vbs
echo select case WScript.Arguments.count>>resetexplorer.vbs
echo case ^0>>resetexplorer.vbs
echo call RestartExplorer()>>resetexplorer.vbs
echo case ^1>>resetexplorer.vbs
echo call WithArguments()>>resetexplorer.vbs
echo end select>>resetexplorer.vbs
echo sub WithArguments()>>resetexplorer.vbs
echo select case WScript.Arguments(0)>>resetexplorer.vbs
echo case "--CloseAll">>resetexplorer.vbs
echo call CloseAllFolders()>>resetexplorer.vbs
echo case "--CloseDuplicate">>resetexplorer.vbs
echo call CloseDuplicateF
1.34 KB, 下载次数: 24, 下载积分: 无忧币 -2
作者: yyz2191958 时间: 昨天 19:36
支持原创
作者: wangyibin 时间: 昨天 19:44
路过！
作者: cfq001 时间: 昨天 20:02
收藏备用，谢谢了
作者: wn168cn@163.com 时间: 昨天 21:23
感谢分享
作者: wwxxtt2020 时间: 昨天 21:34
关闭重复文件夹和关闭所有文件夹到底是什么功能啊？感觉选择了也没啥反应。
作者: yzydys 时间: 昨天 21:45
收藏备用，谢谢
作者: yc2428 时间: 昨天 22:32
感谢分享
作者: 2012fengxi 时间: 昨天 22:50
感谢分享
作者: 1G空间100元 时间: 9 小时前
wwxxtt2020 发表于 2024-11-21 21:34
关闭重复文件夹和关闭所有文件夹到底是什么功能啊？感觉选择了也没啥反应。
关闭重复文件夹 估计是你打开了2个或以上一样的文件夹 就只保留一个文件打开状态 其他关闭
关闭所有文件夹 估计是关闭你文件资源管理器中打开的任何文件夹
作者: zaolaohu 时间: 7 小时前
谢谢分享
作者: AcidBurn 时间: 6 小时前
谢谢楼主的分享!
作者: 创新科技2015 时间: 5 小时前
支持原创
作者: wwxxtt2020 时间: 4 小时前
1G空间100元 发表于 2024-11-22 03:09
关闭重复文件夹 估计是你打开了2个或以上一样的文件夹 就只保留一个文件打开状态 其他关闭
关闭所有文 ...
关闭所有文件夹已经懂了，但是关闭重复文件夹还是搞不懂，因为一般来说同一个文件夹不大可能重复打开成两个窗口，只会是一个窗口打开的
作者: 1G空间100元 时间: 1 小时前
wwxxtt2020 发表于 2024-11-22 07:39
关闭所有文件夹已经懂了，但是关闭重复文件夹还是搞不懂，因为一般来说同一个文件夹不大可能重复打开成两 ...
可以2个窗口打开同一个文件夹的
你可以试试：
打开 此电脑 -- 再打开C盘 放在那不动
然后再去电脑桌面 双击 此电脑 -- 再打开C盘
这样不就有2个窗口打开C盘了 不就重复了
欢迎光临 无忧启动论坛 (http://wuyou.net./) Powered by Discuz! X3.3