amwfjhh

回复 7# yunyan100


    如你所说，自由决定关闭文件夹路径，遍历其下打开的所有文件夹，找到符合条件的窗口就关闭它。WIN10测试通过。

@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 + " ，关闭之");
	}
}
复制代码

amwfjhh

如要将指定文件夹本身也关闭，对输入路径再作一次关闭调用即可。

amwfjhh

回复 10# yunyan100


    你是怎么使用的？输入参数是你要遍历的文件夹，这个脚本关闭的是它子文件夹中有被打开的窗口。如图所示：

传入的路径下有一个文件夹，若其被打开，则遍历时会被探测到并被关闭。

amwfjhh

回复 12# yunyan100


    奇怪，难道你那脚本宿主有问题……

amwfjhh

回复 14# yunyan100


    什么意思？引用这段脚本？如果是这样随便引用，这是讨论区，发出来就是提供参考的。
另，你运行无报错，但是却无法激活窗口，可能是安全软件禁用相关功能或者脚本宿主功能不全，可单独测试一下WScript.Shell的窗口激活功能是否能正常起用。