如何在vba for循环中动态更改文件名？

Dim fso As New FileSystemObject

fso.MoveFile "旧文件路径和名称", "新文件路径和名称"

Sub ChangeFileName()
    Dim fso As New FileSystemObject
    Dim folderPath As String
    Dim fileName As String
    Dim newFileName As String
    
    ' 设置文件夹路径
    folderPath = "C:\目标文件夹路径\"
    
    ' 循环处理文件
    fileName = Dir(folderPath & "*.txt") ' 这里假设要更改的文件是以.txt结尾的
    Do While fileName <> ""
        ' 生成新的文件名
        newFileName = "新文件名" & Right(fileName, Len(fileName) - InStrRev(fileName, "."))
        
        ' 更改文件名
        fso.MoveFile folderPath & fileName, folderPath & newFileName
        
        ' 获取下一个文件
        fileName = Dir
    Loop
    
    ' 释放对象
    Set fso = Nothing
End Sub