[已解决]Dir()可以只查找出所有文件夹吗？

爱疯

1. 
   
2. Sub test()
   
3.     Dim Mypath As String
   
4.     Dim Myfile As String
   
5.     Dim arr(1 To 1000, 1 To 1) As String
   
6.     Dim k As Integer
   
7.     Mypath = "C:"
   
8.     Myfile = Dir(Mypath, vbDirectory)
   
9.     Do While Myfile <> ""
   
10.         k = k + 1
    
11.         arr(k, 1) = Myfile
    
12.         Myfile = Dir
    
13.     Loop
    
14.     Columns("A:A").Clear
    
15.     Cells(1, 1).Resize(UBound(arr), 1) = arr
    
16. End Sub

复制代码

dir.rar (8.29 KB, 下载次数: 19)

2011-6-8 12:11 上传

点击文件名下载附件

结果，不仅仅是文件夹。
请问如题，可以的话，怎样修改？
谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2011-6-8 12:23

利用GetAttr判断

1. Sub test()
   
2.     Dim Mypath As String
   
3.     Dim Myfile As String
   
4.     Dim arr(1 To 1000, 1 To 1) As String
   
5.     Dim k As Integer
   
6. 
   
7.     Mypath = "C:"
   
8.     Myfile = Dir(Mypath, vbDirectory)
   
9.     Do While Myfile <> ""
   
10.         If GetAttr(Mypath & Myfile) = vbDirectory Then
    
11.             k = k + 1
    
12.             arr(k, 1) = Myfile
    
13.         End If
    
14.         Myfile = Dir
    
15.     Loop
    
16.     Columns("A:A").Clear
    
17.     Cells(1, 1).Resize(UBound(arr), 1) = arr
    
18. End Sub

复制代码

跳转到最佳答案楼层

amulee

利用GetAttr判断

1. Sub test()
   
2.     Dim Mypath As String
   
3.     Dim Myfile As String
   
4.     Dim arr(1 To 1000, 1 To 1) As String
   
5.     Dim k As Integer
   
6. 
   
7.     Mypath = "C:"
   
8.     Myfile = Dir(Mypath, vbDirectory)
   
9.     Do While Myfile <> ""
   
10.         If GetAttr(Mypath & Myfile) = vbDirectory Then
    
11.             k = k + 1
    
12.             arr(k, 1) = Myfile
    
13.         End If
    
14.         Myfile = Dir
    
15.     Loop
    
16.     Columns("A:A").Clear
    
17.     Cells(1, 1).Resize(UBound(arr), 1) = arr
    
18. End Sub

复制代码

henrywei88

把------Mypath = "C:\"------这一句改为------Mypath = "C:\*.xls"------的时候，就可以只查到扩展名为xls的文件，你想要什么文件就用什么扩展名就可以了......

henrywei88

下面这段代码相对简单一些：
新建个按钮，在按钮里贴上如下代码
Private Sub CommandButton1_Click()
Dim fn As String
Dim r As Long
fn = Dir("C:\Users\admin\Desktop\*.xls")
While fn <> ""
r = r + 1
Cells(r, 1) = fn
fn = Dir()
Wend
End Sub

爱疯

谢谢阿木、henrywei88！

学习getatt了

vbDirectory 16 指定无属性文件及其路径和文件夹。
看了帮助，还是觉得理解不了这句。这儿vbDirectory是什么含义呢

蓝桥玄霜

vbDirectory 16 目录或文件夹
它只是Dir函数中的attributes参数的一个常数。
Directory 英文本意是：目录。在计算机语言中也是文件夹的意思。
Dir函数就是Directory的前面3个字母。
呵呵，咬文嚼字真难啊。

爱疯

蓝桥玄霜 发表于 2011-6-9 09:05
vbDirectory 16 目录或文件夹
它只是Dir函数中的attributes参数的一个常数。
Directory 英文本意是：目录 ...

谢谢蓝版！

Myfile = Dir(Mypath, vbDirectory)，我是意外这句并不能只显示文件夹名。

vbDirectory 16 指定无属性文件及其路径和文件夹。
所以才看这句的帮助。您的解释很正确、清晰。
我（断句）的理解是：参数vbDirectory，表示返回无属性文件名，或者文件夹名（即目录名）。那“及其路径”怎么体现呢?

joyark

谢谢蓝版！