[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程批处理在线视频分享
返回列表 发帖

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

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

顶一个,这个可以有,包含空格文件夹未能成功关闭静待修复
这么好的论坛你上哪找
注:请遵守互联网信息安全,勿用于非法用途,伸手党直接去某度

TOP

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

TOP

返回列表