Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2014-9-25 01:09 | 只看该作者

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

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

Set Shell = CreateObject("Shell.Application")
Set Dict = CreateObject("Scripting.Dictionary")
Set Wins = Shell.Windows

For i=Wins.Count-1 To 0 step -1
    If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
            If Dict.Exists(Wins(i).LocationURL) Then
                    Wins(i).Quit
            Else
                    Dict.Add Wins(i).LocationURL,True
            End If
        End If
Next
复制代码

---------------------------------------------------------------------------------
题外话：
配合 ahk 的热字符串功能，可以实现在运行窗口输入特定字符串并回车时清理重复窗口，节选相应部分如下：

#IfWinActive, 运行, 请键入程序、文件夹、文档或 Internet 资源的名称，Windows 将为您打开它。

::cls::
::clean::
Run, "关闭重复窗口.vbs",,,PID
traytip,, 关闭重复窗口.vbs::%PID%
return
复制代码

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

1 评分人数

yu2n: 感谢分享技术 + 1

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

yu2n

上尉

Rank: 5 Rank: 5

帖子: 715
积分: 1298
技术: 151
捐助: 0
注册时间: 2012-11-1

2楼

发表于 2014-9-25 08:07 | 只看该作者

不错，简单有效。
WinXP 有个笨办法，在任务栏分组的[列表]中，选择重复路径窗口项目，按右键选[关闭]。
据说 Q-Dir、TC 比 Explorer 好用。

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

TOP

Batcher

管理员

Rank: 12

帖子: 14918
积分: 46123
技术: 857
捐助: 745
注册时间: 2008-6-9

3楼

发表于 2014-9-25 08:40 | 只看该作者

楼主的工作需要频繁切换文件夹，楼主的习惯又很差，经常是一个又一个的 Win+E 然后粘贴路径

Man, that's why we're using Total Commander.

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

4楼

发表于 2014-9-25 17:14 | 只看该作者

回复 2# yu2n

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

回复 3# Batcher

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

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

TOP

523066680

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

5楼

发表于 2014-9-25 17:47 | 只看该作者

本帖最后由 523066680 于 2014-9-25 17:51 编辑

回复 4# CrLf

轮子收下了。

ZM同学，写一个CrLf版的explorer吧！

FuniCode 编程论坛

TOP

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

6楼

发表于 2014-9-25 19:48 | 只看该作者

回复 5# 523066680

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

<html>
<head>
	<title>CrLf版的explorer</title>
	<script>
	function changeSrc(e,obj){
		if(e.keyCode!=13)return
		var value = obj.value
		if(value.search(/file:/i)>=0)value = 'file://'+value
		value = value.replace(/:$/,':\\')
		document.getElementById("iframe").src = obj.value = value
	}
	</script>
</head>

<body bgcolor="white">
	地址：<input type="text" id="src" style="width:500" onkeydown="changeSrc(window.event,this);" value="c:\">
	<br />
	<iframe id="iframe" style="width:100%;height:90%" src="file://c:\"></iframe>
</body>
</html>
复制代码

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

TOP

523066680

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

7楼

发表于 2014-9-25 19:50 | 只看该作者

回复 6# CrLf

我还想说你要是写得好我就第一个donate，还好没说出来。

FuniCode 编程论坛

TOP

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

8楼

发表于 2014-9-25 19:51 | 只看该作者

本帖最后由 CrLf 于 2014-9-25 19:53 编辑

回复 7# 523066680

你已经说粗来了...
话说谁知道怎么操作 <iframe src=file://xxxxx>...</iframe> 里的文件和文件夹？比如枚举、选中、复制、移动、排序之类的？
所说环境仅限于 hta

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

TOP

yu2n

上尉

Rank: 5 Rank: 5

帖子: 715
积分: 1298
技术: 151
捐助: 0
注册时间: 2012-11-1

9楼

发表于 2014-11-7 17:04 | 只看该作者

本帖最后由 yu2n 于 2015-5-6 22:19 编辑

Mark.

怎样用bat重启explorer资源管理器不关闭打开的文件夹呢？
http://www.bathome.net/thread-32834-1-1.html

【更新】坛友 CrLf 提醒explorer打开路径可用

oShell.explore strURL
复制代码

VBS代码如下：

Call RestartExplorer()
Function RestartExplorer()
  Dim arrURL(), strURL, oShell, oWin, n
  n = -1
  Set oShell = CreateObject("Shell.Application")
  For Each oWin In oShell.Windows
    If Instr(1, oWin.FullName, "\explorer.exe", vbTextCompare) Then
      n = n + 1
      ReDim Preserve arrURL(n)
      arrURL(n) = oWin.LocationURL
    End If
  Next
  CreateObject("WScript.Shell").run "tskill explorer", 0, True
  For Each strURL In arrURL
    oShell.Explore strURL
  Next
End Function
复制代码

参考：VBS关闭重复的文件夹窗口
http://www.bathome.net/thread-32053-1-1.html

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

TOP

返回列表

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

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]