[已解决]dir后判断，能显示所有文件夹名吗？

爱疯

（实际C盘下的文件夹）



Sub test()
    Dim p, f
    p = "c:\"
    f = Dir(p, vbDirectory)
    Do While f <> ""
        If GetAttr(p & f) = vbDirectory Then
            Debug.Print f, GetAttr(p & f)
        End If
        f = Dir()
    Loop
End Sub

返回
Intel          16
PerfLogs       16
Windows        16






问题：如果能，怎么改呢？即返回12个文件夹名
谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-8-1 09:46

对于设置了属性的文件夹，直接用VBDIRECTORY是找不到的。

1. Sub test()
   
2.     On Error Resume Next
   
3.     Dim p, f
   
4.     p = "c:"
   
5.     f = Dir(p, vbDirectory + vbHidden + vbArchive + vbReadOnly + vbSystem + vbVolume)
   
6.     Do While f <> ""
   
7.         If (GetAttr(p & f) And vbDirectory) = vbDirectory Then
   
8.             Debug.Print f, GetAttr(p & f)
   
9.         End If
   
10.         f = Dir()
    
11.     Loop
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

好像还有个vbnormal参数。

hwc2ycy

1. Sub test()
   
2.     On Error Resume Next
   
3.     Dim p, f
   
4.     p = "c:"
   
5.     f = Dir(p, vbDirectory + vbNormal + vbHidden + vbSystem + vbReadOnly)
   
6.     Do While f <> ""
   
7.         If (GetAttr(p & f) And vbDirectory) = vbDirectory Then
   
8.             Debug.Print f, GetAttr(p & f)
   
9.         End If
   
10.         f = Dir()
    
11.     Loop
    
12. End Sub
    

复制代码

hwc2ycy

对于设置了属性的文件夹，直接用VBDIRECTORY是找不到的。

1. Sub test()
   
2.     On Error Resume Next
   
3.     Dim p, f
   
4.     p = "c:"
   
5.     f = Dir(p, vbDirectory + vbHidden + vbArchive + vbReadOnly + vbSystem + vbVolume)
   
6.     Do While f <> ""
   
7.         If (GetAttr(p & f) And vbDirectory) = vbDirectory Then
   
8.             Debug.Print f, GetAttr(p & f)
   
9.         End If
   
10.         f = Dir()
    
11.     Loop
    
12. End Sub

复制代码

爱疯

Sub test2()
    Dim p, f
    p = "c:\"
    f = Dir(p, vbHidden + vbDirectory)
    Do While f <> ""
        If InStr(f, ".") = False Then
            Debug.Print f, GetAttr(p & f)
        End If
        f = Dir()
    Loop
End Sub


如果文件名含"."，会误判。

hwc2ycy

hwc2ycy

另外要用GETATTR确定某一项属性的时候得用AND做处理。

爱疯

hwc2ycy 发表于 2013-8-1 09:46
对于设置了属性的文件夹，直接用VBDIRECTORY是找不到的。

谢谢烟花！
你的结果是对的。有些问题还不大清楚，来学习一下。
问1：为什么Dir 函数 的attributes 参数里没有vbArchive？

hwc2ycy

爱疯 发表于 2013-8-1 09:57
谢谢烟花！
你的结果是对的。有些问题还不大清楚，来学习一下。
为什么Dir 函数 的attribute ...

参数提示里有的。

hwc2ycy