VBA-递归获取所有子文件夹內的文件路径和文件名
VBA-递归获取所有⼦⽂件夹內的⽂件路径和⽂件名
⽤递归的话思路很简单，
函数第⼀部分写遍历形参路径下的⽂件名
第⼆部分利⽤递归传⼊⼦⽂件夹內的路径
Function get_folder_file(pth)
'Dim fs As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject").GetFolder(pth)
For Each File In fso.Files '第⼀部分
last_row = Range("a65536").End(xlUp).Row + 1
Range("a" & last_row) = fso.Path
Range("b" & last_row) = File.Name
DoEvents
Next
For Each Folder In fso.SubFolders  '第⼆部分
Call get_folder_file(Folder.Path)
Next
Set fso = Nothing博客名
End Sub
Sub test()
pth = "F:\PYTHON2018\PYTHON2018\python3全栈3期\⽼男孩三期 Python全栈104天⽆密码"
Call get_folder_file(pth)
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。