q115643492

4# Demon

好象没有效果！

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

cjiabing

1# q115643492 这么复杂，看看判断进程标题能否得到了咯

wolonga123

为什么不要把exporer.exe kill掉啊??