使用filesystemobject获取文件夹及子文件夹下所有文件名

Option Explicit
Dim i
Function sda(path)
    Dim fso
    Dim f
    Dim s
    Dim ff
    Set fso = CreateObject("scripting.filesystemobject")
    Set f = fso.getfolder(path)
    For Each s In f.Files
        i = i + 1
        Range("A" & i) = path & "\" & s.Name
    Next
    
    For Each ff In f.subfolders
        Call sda(ff)
    Next
    Set ff = Nothing
    Set fso = Nothing
End Function

Sub dddd()
    Dim path  As String
    path = "C:\Users\lison\Desktop\新建文件夹"
    sda (path)
End Sub