VBA更改文件夹中所有文件的名称

Sub RenameFilesInFolder()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strFolderPath As String
    Dim strNewName As String
    
    ' 设置文件夹路径
    strFolderPath = "C:\Path\To\Folder\"
    
    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)
    
    ' 循环遍历文件夹中的每个文件
    For Each objFile In objFolder.Files
        ' 设置新的文件名
        strNewName = "NewFileName" & objFSO.GetExtensionName(objFile.Name)
        
        ' 更改文件名
        objFile.Name = strNewName
    Next objFile
    
    ' 释放对象变量
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    
    ' 提示完成
    MsgBox "文件名修改完成！"
End Sub