vba如何计算某个文件夹下文件的个数？

DataBus

840205910 发表于 2012-12-19 11:31
请教蓝版主，Do While .....Loop之间能不能再嵌入一个Do While .....Loop
比如先找到"E:\"里的AA文件夹、 ...

。。。。。。。。。递归。

840205910

DataBus 发表于 2012-12-19 11:34
。。。。。。。。。递归。

Private Sub CommandButton1_Click()
    s = "e:\"
    fn = Dir(s, vbDirectory)
    i = 1
    [b2:b65536].ClearContents
    Do While fn <> ""
        i = i + 1
        Cells(i, 2).Value = fn
             p = "e:\" & fn & "\*.*"
             q = Dir(p)
              Do While q <> ""
              i = i + 1
              Cells(i, 2).Value = q
              q = Dir
               Loop
        fn = Dir
    Loop
End Sub
为何会提示“无效的调用。。。。”，指“fn = Dir“黄色

蓝桥玄霜

Dir函数第2次使用时，如果不带参数，则将返回同一目录下的下一个 文件，Do。。。Loop是可以嵌套的。
可用FSO解决：

1. Sub yy()
   
2. Dim fso, f, n&
   
3.    Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     For Each floder1 In fso.GetFolder("e:").SubFolders
   
5.         n = n + 1
   
6.         Cells(n, 2) = floder1.Name
   
7.         For Each f In floder1.Files
   
8.             n = n + 1
   
9.             Cells(n, 3) = f.Name
   
10.         Next
    
11.     Next
    
12. End Sub
    

复制代码

梦的旅人

膜拜 EH侠圣“Zamyi”{:soso_e183:} 十分感谢，学习了！！！！

mengshu

高手就是与众不同啊！厉害

瀚天

zamyi的程序受用了，膜拜

zxpmjmagic·

这个功能得尝试一下哦。

zhulx_wx

Zamyi 发表于 2012-12-19 10:18
太啰嗦

学习了!很方便!

lxy090

蓝桥玄霜 发表于 2012-12-19 13:56
Dir函数第2次使用时，如果不带参数，则将返回同一目录下的下一个 文件，Do。。。Loop是可以嵌套的。
可用F ...

如果不要扩展名，应该怎样修改代码。求教，谢谢！

daqinqin

Zamyi 发表于 2012-12-19 10:18
太啰嗦

太强大了，有木有方法判断文件夹的数量而不是文件的数量。