fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总）

dogingate

非常感谢，使用该教程改了一段可以提取文件夹下子文件夹下的jpg类型文件写入xls表格

'遍历当前文件夹内文件名
Rem 如果不需要提取本代码文件名，可以增加if语句 if f.name<> thisworkbook.name then.....
Sub Getfd(ByVal pth)
Application.ScreenUpdating = False
Set fso = CreateObject("scripting.filesystemobject")
Set wjj = fso.getfolder(pth) '获取文件夹路径
Range("a:a").ClearContents
Range("b:b").ClearContents
k = 1
For Each zwjj In wjj.subfolders '遍历子文件夹
    For Each wj In zwjj.Files
        extname = Split(wj.Name, ".")(UBound(Split(wj.Name, "."))) '获取文件扩展名
        If UCase(extname) = "JPG" Then
        Cells(k, 1) = wj.Name
        Cells(k, 2) = zwjj.Name
        k = k + 1
        End If
    Next wj
Next zwjj
Application.ScreenUpdating = True
End Sub

一碧清蓝

O(∩_∩)O谢谢分享，慢慢学习

HUA79100101

非常好。谢谢

34000920

功能很强大，太感谢了

lhl_ah

very good, I Mark

tjmadele

收藏起来，谢谢分享！

zz418841988

收藏，学习了，非常感谢！

heizuo

学习了，以后要多多尝试

penghlcn

多谢分享~~~~~

rogerching

感谢楼主。辛苦了。受益良多。