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