循环浏览文件夹更改文件扩展名VBA

Sub ChangeFileExtension()
    Dim FolderPath As String
    Dim FileName As String
    Dim OldExtension As String
    Dim NewExtension As String
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    
    ' 设置文件夹路径和旧、新扩展名
    FolderPath = "C:\Folder\Path"
    OldExtension = ".txt"
    NewExtension = ".docx"
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(FolderPath)
    
    ' 循环处理文件夹下的每个文件
    For Each objFile In objFolder.Files
        ' 检查文件扩展名是否为旧扩展名
        If objFSO.GetExtensionName(objFile.Name) = Mid(OldExtension, 2) Then
            ' 更改文件扩展名
            FileName = Left(objFile.Name, Len(objFile.Name) - Len(OldExtension))
            objFSO.MoveFile objFile.Path, objFile.ParentFolder & "\" & FileName & NewExtension
        End If
    Next objFile
    
    ' 释放对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    
    MsgBox "文件扩展名更改完成！"
End Sub