显示所有文件夹下的所有文件的路径4

Sub 按钮1_Click()
Application.ScreenUpdating = False
https://www.wendangku.net/doc/859062089.html,edRange.ClearContents
Cells(1, 1) = "相对路径文件名"
Cells(1, 2) = "绝对路径文件名"
Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
Application.ScreenUpdating = True
End Sub


Sub Getfd(ByVal pth)
Set Fso = CreateObject("scripting.filesystemobject")
Set ff = Fso.getfolder(pth)

For Each f In ff.Files
Rem 具体提取哪类文件，还是需要根据文件扩展名进行处理
Cells(Rows.Count, 1).End(3).Offset(1) = https://www.wendangku.net/doc/859062089.html,
Cells(Rows.Count, 2).End(3).Offset(1) = f
Next f

For Each fd In ff.subfolders
Getfd (fd)
Next fd

End Sub