本帖最后由 zhengzhenhui945 于 2024-8-17 03:50 编辑
提供一个BVS的代码,可以玩玩看。
如果有打开访问时就关闭文件夹,且包含子目录,复制路径访问文件夹和子文件也会关闭
[Shell] 纯文本查看 复制代码 On Error Resume Next
Set s = CreateObject("Shell.Application")
Const url = "文件夹路径"
Do
For Each w In s.Windows()
Dim actualUrl
actualUrl = Replace(w.LocationURL, "%20", " ")
If Left(actualUrl, Len("file:///" & Replace(url, "\", "/"))) = "file:///" & Replace(url, "\", "/") Then
w.Quit
End If
Next
WScript.Sleep 100
Loop
通过判断窗口的 LocationURL 以指定路径开头来处理文件夹下的子文件和子目录。
但是重启就失效了。
而且防止不了拷贝读取,可以再加一步在文件夹属性里面设置禁止读取,只需要设置其中某个子文件夹即可 |