[文件操作] 使用批处理脚本检查并关闭重复打开的文件夹窗口

qd2024

WIn10 个人操作习惯 总是会打开很多个相同路径的文件夹  想 使用批处理脚本检查并关闭重复打开的文件夹窗口


AI给出的代码，没有实现，求老师指教，修改，谢谢。

@echo off
setlocal enabledelayedexpansion
 
rem 获取所有打开的文件夹窗口路径
set "folderPaths="
for /f "tokens=2 delims=: " %%a in ('tasklist /fi "imagename eq explorer.exe" /v /fo list ^| findstr /i "Window Title:" ^| findstr /i /v "Task Manager" ^| findstr /i /v "Start menu" ^| findstr /i /v "Program Manager"') do (
    set "folder=%%a"
    if "!folder:~0,2!"=="::" (
        set "folder=!folder:~2!"
    )
    if exist "!folder!" (
        set "folderPaths=!folderPaths! "!folder!""
    )
)
 
rem 找出重复路径并关闭多余窗口
set "processedFolders="
for %%f in (%folderPaths%) do (
    set "isDuplicate=0"
    for %%p in (%processedFolders%) do (
        if "%%~f"=="%%~p" (
            set "isDuplicate=1"
        )
    )
    if !isDuplicate! equ 1 (
        powershell -Command "$shell = New-Object -ComObject Shell.Application; $shell.Windows() | Where-Object { $_.LocationURL -like 'file://*%%~f*' } | ForEach-Object { $_.Quit() }"
    )
    set "processedFolders=!processedFolders! %%f"
)
 
endlocalCOPY

aloha20200628

回复 1# qd2024

以下代码存为 test.bat 运行》关闭当前重复（即第2至第n个）打开同一目录的资源管理器窗口...

<# ::
@echo off &powershell -c "iex(${%~f0}|out-string)" &pause&exit/b
#>
$a, $s = @(), (new-object -comObject shell.application)
$s.windows()|?{$_.locationURL -like 'file:///*'}|%{if($a.contains($_.locationURL)){$_.quit()}else{$a+=$_.locationURL}}
exitCOPY

ygqiang

回复 1# qd2024

vbs关闭重复打开的窗口（win7-win10-win11测试通过）
http://www.bathome.net/thread-70568-1-1.html