[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @set @n=0;/* & echo off
  2. pushd "D:\Test\"
  3. for /d /r %%a in (*) do (
  4.     start "" "%%a"
  5.     cscript -nologo -e:jscript %0 "%%a"
  6. )
  7. pause & exit/b & rem */
  8. WScript.Sleep(1000);
  9. objShell = new ActiveXObject("Shell.Application");
  10. fd = WScript.Arguments(0).replace(/\\/g, "/").toLowerCase();
  11. w = new Enumerator(objShell.Windows());
  12. for (;!w.atEnd();w.moveNext()) {
  13.     path = w.item().LocationURL
  14.     path = path.replace(/%([a-f\d]{2})/ig,
  15.         function(s0, s1){return String.fromCharCode('0x'+s1)}
  16.     )
  17.     if (path.toLowerCase().indexOf(fd)>-1) w.item().Quit()
  18. }
复制代码

TOP

返回列表