vbs根据指定的目录路径关闭已打开的文件夹窗口

pcl_test

1. fdpath="D:\123\test"
   
2. 
   
3. arr=Split("%,{,},[,],&,^,#,`, ", ",")
   
4. fdpath=Replace(fdpath, "", "/")
   
5. If Right(fdpath, 1) = "/" Then fdpath=Left(fdpath, Len(fdpath)-1)
   
6. If Len(fdpath) = 2 Then fdpath=fdpath & "/"
   
7. 
   
8. Set ShellApp = CreateObject("Shell.Application")
   
9. Set oWindows = ShellApp.Windows
   
10. For Each SubWds In oWindows
    
11.     If LCase(SubWds.LocationURL) = LCase("file:///" & encode(fdpath, arr)) Then
    
12.         SubWds.Quit()
    
13.     End If
    
14. Next
    
15. 
    
16. Function encode(ByVal path, ByRef arr)
    
17.     For i=0 To UBound(arr)
    
18.         path=Replace(path, arr(i), "%" & Hex(Asc(arr(i))))
    
19.     Next
    
20.     encode=path
    
21. End Function

复制代码

/zhqsystem/zhq

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

小渣飞

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