递归调用不改变父循环的值？

temp17

Const basePath As String = "C:\Users\Desktop\1"
Dim n As Long
Sub getFiles(spath As String)
    Dim oFso As Object, ofile As Object, fd As Object
    Dim baseFolder As Object
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set baseFolder = oFso.GetFolder(spath)
    For Each ofile In baseFolder.Files
        n = n + 1
        Cells(n, 1) = ofile.Name
    Next
   
    '这里递归调用时，baseFolder为什么不会被上方给改变值？
    For Each fd In baseFolder.SubFolders
        getFiles fd.path
    Next
End Sub

Sub 获取全部文件名称()
    getFiles basePath
End Sub

temp17

    '这里递归调用时，baseFolder为什么不会被上方给改变值？
    For Each fd In baseFolder.SubFolders