[技术讨论] vbs根据指定的目录路径关闭已打开的文件夹窗口

pcl_test

fdpath="D:\123\test"

arr=Split("%,{,},[,],&,^,#,`, ", ",")
fdpath=Replace(fdpath, "\", "/")
If Right(fdpath, 1) = "/" Then fdpath=Left(fdpath, Len(fdpath)-1)
If Len(fdpath) = 2 Then fdpath=fdpath & "/"

Set ShellApp = CreateObject("Shell.Application")
Set oWindows = ShellApp.Windows
For Each SubWds In oWindows
    If LCase(SubWds.LocationURL) = LCase("file:///" & encode(fdpath, arr)) Then
        SubWds.Quit()
    End If
Next

Function encode(ByVal path, ByRef arr)
    For i=0 To UBound(arr)
        path=Replace(path, arr(i), "%" & Hex(Asc(arr(i))))
    Next
    encode=path
End Function
复制代码

/zhqsystem/zhq

顶一个,这个可以有,包含空格文件夹未能成功关闭静待修复

小渣飞

请问一下这个怎么无限运行