[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[技术讨论] 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
复制代码
1

评分人数

顶一个,这个可以有,包含空格文件夹未能成功关闭静待修复
这么好的论坛你上哪找,运行测试环境为6.1.7601-64
注:请遵守互联网信息安全,勿用于非法用途

TOP

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

TOP

返回列表