文件夹遍历

fzxba

分享………………

yynrzwh

这个怎么样？

cai2532

yynrzwh 发表于 2024-3-3 15:01
这个怎么样？

有没有电子文本版呀

yynrzwh

遍历文件夹.zip (20.69 KB, 下载次数: 13)

2024-3-3 16:44 上传

点击文件名下载附件

gwjkkkkk

递归或字典数组均可完成。。。

cai2532

yynrzwh 发表于 2024-3-3 16:44

真的谢谢。

ykcbf1100

参与一下。

用遍历的方式把指定目录下的所有子文件夹名写入集合fds中，方便以续数据处理（比如：多文件合并，汇总等）

ykcbf1100

代码供参考。。。

1. Sub 遍历子文件夹列表集合法()
   
2.     Dim fds As New Collection
   
3.     p = ThisWorkbook.Path
   
4.     getfds p, fds
   
5. End Sub
   
6. 
   
7. Sub getfds(p, fds)
   
8.     Set fso = CreateObject("Scripting.FileSystemObject")
   
9.     Set ff = fso.GetFolder(p)
   
10.     For Each fd In ff.subfolders
    
11.         fds.Add Array(fd.Path, fd.Name)
    
12.         getfds fd.Path, fds
    
13.     Next fd
    
14.     Set ff = Nothing
    
15.     Set fso = Nothing
    
16. End Sub
    

复制代码