历遍文件夹批量修改文件名

Sub yyy()
    Dim fso                                     As New FileSystemObject
    Dim fd                                      As Folder
    Dim sfd                                     As Folder
    Dim fl                                      As File
    
    Set fd = fso.GetFolder("C:\Users\Administrator\Desktop\test\")
    
    For Each sfd In fd.SubFolders
        For Each fl In sfd.Files
            If Right(fl.Name, 3) = "pdf" Then
                'MsgBox reg.Replace(fl.Name, "")
                Name fl.Path As sfd.Path & "\" & Left(fl.Name, Len(fl.Name) - 4) & "_Test.pdf"
               'Set f = fso.GetFile(fl.Path)
            End If
        Next
    Next
End Sub