[问题求助] [已解决]VBS如何判断是否打开了某文件夹并关闭之？

q115643492

有一需求，判断是否打开了D盘中的文件夹，比如D:\或D:\a，地址栏为显示全路径。有可能打开了多个满足条件的文件夹。如果打开了，就关闭这些文件夹（不要使用结束explorer）。没有就跳转到下面的操作。有点急用。请好心人帮帮！
思路：
1.获取所有打开的窗体名
2.判断窗体名是否包含D:\字符
3.关闭符合条件的窗体
就是不会写这些代码，还请指点！

czjt1234

回复 18# ww0000


    能啊

ww0000

回复 11# broly


    能不能先判断再关闭？？

zhangxinjian

我的win7旗舰版，怎么关不掉文件夹啊

broly

15# Demon


你这样修改关键字颜色等虽然也有好处，但是如果代码过长，并不方便别人复制代码。而且，万一碰上基础比较差的，不一定知道哪些是你代码的全部

Demon

Select Case path
Case "D:/", "D:/a", "文件夹1", "文件夹2", "以此类推"
  window.Quit
End Select
broly 发表于 2011-7-11 21:50

用[code]括起来如何修改颜色？

CrLf

批处理的话可以：

move 文件夹 %cd% %cd%>nul||echo %cd%正被使用
复制代码

不知在vbs中如何套用

哦，我看错题意了...

q115643492

呵呵。谢谢大家，不好意思，费心了！

broly

4# Demon

Demon，下次把代码用[CODE] 括起来吧，方便别人复制代码

broly

上面的代码是在Windows 7中测试的，刚刚在Windows 2003中测试了一下，发现和Windows 7不太一样。

Windows 7下窗口可以分成Windows Internet Explorer、Windows Explorer两种，前者是IE窗口，后者是Explorer窗口 ...
Demon 发表于 2011-7-11 13:34

 Select Case path
Case "D:/", "D:/a", "文件夹1", "文件夹2", "以此类推"
  window.Quit
End Select
复制代码

Demon

就是不懂才来问滴撒，不要欺负象我这种菜鸟新手。
不过还是谢谢你的几次回答！
q115643492 发表于 2011-7-11 16:06

都到这份上了还不会自己改，我也没什么好说的。正如powerbat所说，如果你什么都不懂，请在提问时注明。

q115643492

就是不懂才来问滴撒，不要欺负象我这种菜鸟新手。
不过还是谢谢你的几次回答！

Demon

6# Demon
恩，这样就可以用了，但是只能关闭d:\和d:\a这2个文件夹。
我的意思是需要判断是否打开了D盘中的文件夹，比如D:\或D:\a，只是举例为这2个文件夹，其实文件夹名可能是未知的，还有可能不只这两个，我的想 ...
q115643492 发表于 2011-7-11 13:47

我很好奇你的VBS到底是什么水平，我的回答到此为止。

q115643492

6# Demon
恩，这样就可以用了，但是只能关闭d:\和d:\a这2个文件夹。
我的意思是需要判断是否打开了D盘中的文件夹，比如D:\或D:\a，只是举例为这2个文件夹，其实文件夹名可能是未知的，还有可能不只这两个，我的想法是：
1.获取所有打开的窗体名
2.判断窗体名是否包含D:\字符
3.关闭符合条件的窗体
看能不能用代码实现

Demon

4# Demon

好象没有效果！
q115643492 发表于 2011-7-11 12:56

上面的代码是在Windows 7中测试的，刚刚在Windows 2003中测试了一下，发现和Windows 7不太一样。

Windows 7下窗口可以分成Windows Internet Explorer、Windows Explorer两种，前者是IE窗口，后者是Explorer窗口，但是在Windows 2003中没有作区分，只有Windows Internet Explorer一种窗口，所以上面代码的If条件不成立。

既然这样，就不加If判断了


'Author: Demon
'Website: http://demon.tw
'Date: 2011/7/11
Option Explicit
Dim shell, window, path
Set shell = CreateObject("Shell.Application")
For Each window In shell.Windows
    path =  Mid(window.LocationURL, 9)
    Select Case path
         Case "D:/", "D:/a"
            window.Quit
    End Select
Next