关闭重复打开的文件夹

最新推荐文章于 2025-03-14 09:17:52 发布

Admini$trat0r

最新推荐文章于 2025-03-14 09:17:52 发布

阅读量4.8k

点赞数 2

分类专栏：脚本文章标签： vbs

本文链接：https://blog.youkuaiyun.com/qq_41863100/article/details/121928974

版权

脚本专栏收录该内容

7 篇文章

订阅专栏

这篇博客介绍了如何通过VBS脚本和BAT批处理文件，结合注册表编辑，实现在鼠标右键菜单中添加功能，一键关闭所有重复打开的文件夹窗口。操作简单，只需将提供的代码保存为相应文件，并进行注册表配置，即可实现控制台快速关闭重复文件夹，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在平时可能会打开一个文件夹多次，但是不被察觉，因为打开的文件夹太多了，所以需要处理一波。这里还是加到鼠标右键，参考

将CMD添加到鼠标右键_Administrator的博客-优快云博客

这里是一段vbs代码，可以实现

Set Shell = CreateObject("Shell.Application")
Set Dict = CreateObject("Scripting.Dictionary")
Set Wins = Shell.Windows

For i=Wins.Count-1 To 0 step -1
    If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
            If Dict.Exists(Wins(i).LocationURL) Then
                    Wins(i).Quit
            Else
                    Dict.Add Wins(i).LocationURL,True
            End If
        End If
Next

然后是一个同级目录下的bat文件，因为vbs文件不是有效的win32执行文件。（双引号里填脚本路径）

@echo off
cd /d ""
关闭重复文件夹.vbs

然后是一个reg文件，注册鼠标右键。

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\CloseDuplicateFolder]
@="关闭重复文件夹"
"Icon"="F:\\Google Downloads\\halashao.ico"

[HKEY_CLASSES_ROOT\Directory\Background\shell\CloseDuplicateFolder\command]
@="F:\\脚本Test\\关闭重复文件夹.bat"

也可以用cscript.exe来运行vbs文件，在注册表值中写入这个。

C:\Windows\System32\cscript.exe /nologo "vbs完整路径"

看效果

控制台一闪而过，只留下不重复的文件夹，成功。

这里的bat文件和vbs文件要在同级目录下，也可以自己更改，如果有问题可以把文件路径加到环境变量中。

参考

VBS关闭重复的文件夹窗口 - VBS原创&转载 - 批处理之家批处理_BAT脚本_PowerShell_VBS_CMD_DOS_Perl_Python - Powered by Discuz!