文件夹隐藏显示

指尖的阳光、

现在能够将D盘中的“汇总”文件夹进行隐藏显示，但能通过文件夹设置中的“显示隐藏的文件夹”找到，请问怎样将文件夹深度隐藏，谢谢。

ykcbf1100

改成这样试试：
SetAttr "D:\汇总\", vbVeryHidden    'vbHidden

指尖的阳光、

ykcbf1100 发表于 2024-9-3 11:28
改成这样试试：
SetAttr "D:\汇总\", vbVeryHidden    'vbHidden

试了一下，不行啊

醉眼看尘世

重命名该文件夹为
汇总.{645ff040-5081-101b-9f08-00aa002f954e}
可将该文件夹伪装成回收站
打开该文件夹后，看到的是回收站的内容

lss001

隐藏：+s +h，显示：-s -h
Shell "Cmd /c attrib +s +h ""D:\abc"""

指尖的阳光、

lss001 发表于 2024-9-3 13:34
隐藏：+h，显示：-h
Shell "Cmd /c attrib +s +h ""D:\abc"""

如果是D盘内所有工作薄呢？请教

lss001

指尖的阳光、 发表于 2024-9-3 20:52
如果是D盘内所有工作薄呢？请教

Sub 隐藏显示指定类型所有文件()
Dim ph$, ht, ws, arr, f
Set ht = CreateObject("htmlfile")
Set ws = CreateObject("wscript.shell")

ph = "D:\" '指定文件路径
'获取所有文件/a/b/s
ws.Run "cmd /c dir /a/b/s " & Chr(34) & ph & Chr(34) & "|clip" , 0, 1
arr = Split(ht.parentWindow.ClipboardData.GetData("text"), vbCrLf)
arr = Filter(arr, ".xl") '筛选指定类型

'隐藏+s +h或显示-s -h
For Each f In arr
    Shell "cmd /c attrib +s +h """ & f & """"
    'Shell "cmd /c attrib -s -h """ & f & """"
Next

Set ht = Nothing '释放对象
Set ws = Nothing
End Sub

指尖的阳光、

lss001 发表于 2024-9-4 07:54
Sub 隐藏显示指定类型所有文件()
Dim ph$, ht, ws, arr, f
Set ht = CreateObject("htmlfile")

请问：如果是所有文件夹呢？

lss001

指尖的阳光、 发表于 2024-9-11 11:07
请问：如果是所有文件夹呢？

'上楼中间部分改一下

ph = "D:\" '指定文件路径
'获取所有文件夹/ad/b/s 'd表示只获取文件夹
ws.Run "cmd /c dir /ad/b/s " & Chr(34) & ph & Chr(34) & "|clip" , 0, 1
arr = Split(ht.parentWindow.ClipboardData.GetData("text"), vbCrLf)
arr = Filter(arr, "\") '筛选指定类型\