[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-9-25 01:09 | 显示全部帖子

[原创] VBS关闭重复的文件夹窗口

楼主的工作需要频繁切换文件夹，楼主的习惯又很差，经常是一个又一个的 Win+E 然后粘贴路径...于是一个小时下来，打开了 20+ 个窗口，其中有许多是相同的
xp 的关窗口不是很便捷（win7 可以鼠标悬停任务栏，在预览图上中键关闭窗口），所以写了个简单的 vbs，一键逆序关闭相同路径的文件夹
  1. Set Shell = CreateObject("Shell.Application")

  2. Set Dict = CreateObject("Scripting.Dictionary")

  3. Set Wins = Shell.Windows

  4. 

  5. For i=Wins.Count-1 To 0 step -1

  6.     If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then

  7.             If Dict.Exists(Wins(i).LocationURL) Then

  8.                     Wins(i).Quit

  9.             Else

  10.                     Dict.Add Wins(i).LocationURL,True

  11.             End If

  12.         End If

  13. Next
复制代码
---------------------------------------------------------------------------------
题外话：
配合 ahk 的热字符串功能，可以实现在运行窗口输入特定字符串并回车时清理重复窗口，节选相应部分如下：
  1. #IfWinActive, 运行, 请键入程序、文件夹、文档或 Internet 资源的名称，Windows 将为您打开它。

  2. 

  3. ::cls::

  4. ::clean::

  5. Run, "关闭重复窗口.vbs",,,PID

  6. traytip,, 关闭重复窗口.vbs::%PID%

  7. return
复制代码
其实纯 ahk 就可以实现，但代码会很庞杂，而且 ahk 的异步运行貌似做得不是很好，有时会卡其他部分的代码。
1

评分人数

    • yu2n: 感谢分享技术 + 1
收藏 分享
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2014-9-25 17:14 | 显示全部帖子
回复 2# yu2n


    还是略嫌麻烦，win7 只要点一次中键就行


回复 3# Batcher


    试用过一阵子就放弃了，感觉 tc 的上手难度更甚 vim...而且界面实在奇丑无比，简直是 95 的风格
    现在的配置是 locate32+listary+ahk+杂七杂八的各色工具，成熟的软件配合自写脚本，操作起来也挺顺手
    之所以不用 everything，是因为它的原理是读取后删除 usn 日志，单位电脑没有管理员权限无法执行，而且 locate32 还支持网络路径索引
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
3楼
发表于 2014-9-25 19:48 | 显示全部帖子
回复 5# 523066680


    行，代码在这里，你要觉得靠谱就带走吧...
  1. <html>

  2. <head>

  3. 	<title>CrLf版的explorer</title>

  4. 	<script>

  5. 	function changeSrc(e,obj){

  6. 		if(e.keyCode!=13)return

  7. 		var value = obj.value

  8. 		if(value.search(/file:/i)>=0)value = 'file://'+value

  9. 		value = value.replace(/:$/,':\\')

  10. 		document.getElementById("iframe").src = obj.value = value

  11. 	}

  12. 	</script>

  13. </head>

  14. 

  15. <body bgcolor="white">

  16. 	地址：<input type="text" id="src" style="width:500" onkeydown="changeSrc(window.event,this);" value="c:\">

  17. 	<br />

  18. 	<iframe id="iframe" style="width:100%;height:90%" src="file://c:\"></iframe>

  19. </body>

  20. </html>
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
4楼
发表于 2014-9-25 19:51 | 显示全部帖子
本帖最后由 CrLf 于 2014-9-25 19:53 编辑

回复 7# 523066680


    你已经说粗来了...
    话说谁知道怎么操作 <iframe src=file://xxxxx>...</iframe> 里的文件和文件夹？比如枚举、选中、复制、移动、排序之类的？
    所说环境仅限于 hta
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

返回列表