[已解决]怎样dir到隐藏目录

爱疯

这样，看不到隐藏目录，请问怎样修改能看到。谢谢！

Sub test()
    Dim p$, f$, s$
    
    p = "C:\"
    f = Dir(p, vbDirectory)
    Do While f <> ""
        If GetAttr(p & f) = 16 Then s = s & Chr(10) & f
        f = Dir()
    Loop
    MsgBox s
End Sub

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-16 21:38

Sub test()
    Dim p$, f$, s$
   
    p = "C:\"
    f = Dir(p, vbDirectory + vbHidden)
    Do While f <> ""
        If GetAttr(p & f) = 16 + 2 Then s = s & Chr(10) & f
        f = Dir()
    Loop
    MsgBox s
End Sub

跳转到最佳答案楼层

枯禅

Sub test()
    Dim p$, f$, s$
   
    p = "C:\"
    f = Dir(p, vbDirectory + vbHidden)
    Do While f <> ""
        If GetAttr(p & f) = 16 + 2 Then s = s & Chr(10) & f
        f = Dir()
    Loop
    MsgBox s
End Sub

爱疯

QUOTE:

以下是引用枯禅在2010-4-16 21:38:00的发言：
Sub test()
    Dim p$, f$, s$
   
    p = "C:\"
    f = Dir(p, vbDirectory + vbHidden)
    Do While f <> ""
        If GetAttr(p & f) = 16 + 2 Then s = s & Chr(10) & f
        f = Dir()
    Loop
    MsgBox s
End Sub

谢谢枯禅!

dir的第2个参数，为什么可以相加呀？学习了！

如果只是隐藏的文件夹，可以；如果隐藏并只读，就看不到隐藏的文件夹了。

可以显示C:\所有文件夹（各种属性的组合以及无属性）?