[其他] 【已解决】批处理如何一次关闭多个打开的文件夹窗口？

tskill explorer
复制代码

$a = (New-Object -comObject Shell.Application).Windows() |
 ? { $_.FullName -ne $null} |
 ? { $_.FullName.toLower().Endswith('\explorer.exe') } 

 $a | % {  $_.Quit() }
复制代码

GroupAdd,ExplorerGroup, ahk_class CabinetWClass
GroupAdd,ExplorerGroup, ahk_class ExploreWClass

; close all Explorer windows when Winkey x pressed
#x::
  if ( WinExist("ahk_group ExplorerGroup") )
    WinClose,ahk_group ExplorerGroup
return
复制代码

Set wins = CreateObject("Shell.Application").Windows
If not IsNull(wins) Then
    For Each w In wins
        If InStr(LCase(w.FullName), "\explorer.exe") >0 Then w.Quit
    Next
End If
复制代码

@if (0)==(0) echo off
set /p "strFolder=拖入遍历的文件夹 : "
for /f "tokens=*" %%i in ('dir /s/b/ad %strFolder%') do (
	cscript -nologo -e:jscript %~s0 CloseOpenWindow "%%~ni"
	echo,
)
pause
goto :EOF
@end

var func = WScript.Arguments(0);
var str = WScript.Arguments(1);

switch (func) {
	case "CloseOpenWindow":
		CloseOpenWindow(str);
		break;
	default:;
}

function CloseOpenWindow(str) {
	WScript.Echo("当前传入参数为 : " + str);
	var oShell = new ActiveXObject("WScript.Shell");
	var ret = oShell.AppActivate(str);
	WScript.Echo("打开状态 : " + ret);
	if (ret) {
		/// 打开状态为真时，关闭它
		oShell.SendKeys("%{F4}");
		WScript.Echo("存在打开文件夹 " + str + " ，关闭之");
	}
}
复制代码

for %%a in ("%cd%") do echo %%a>>%dp%\1.txt
dir/ad "%cd%\" >nul 2>nul&&cd..&&goto :ren
(for /f "delims=" %%a in (%dp%\1.txt) do (setlocal enabledelayedexpansion&for %%i in (%%a) do (set "pat=%%~nxi"&call :ltty
(if "!pat!" neq "!pan!" if "!pat!" neq "" ren %%i "!pan!"||for /f "tokens=*" %%s in ('dir/b/ad/s %%i\*') do (mshta "javascript:wnds=new ActiveXObject('Shell.Application').windows(); for (i=0; i<wnds.Count; i++) {w=wnds(i); w && w.document && w.document.folder && '%%~nxs'==w.document.folder.title && w.quit();} close();" && ren %%i "!pan!")))&endlocal)&del /f/s/q/a %dp%\1.txt)>nul 2>nul
复制代码