Demon

'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
    If window = "Windows Explorer" Then
        path =  Mid(window.LocationURL, 9)
        Select Case path
            Case "D:/", "D:/a"
                window.Quit
        End Select
    End If
Next

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

Demon

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

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

Demon

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

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

Demon

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

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