使用vba遍历文件夹，批量修改文件类型

在VBA中，你可以使用`FileSystemObject`对象来遍历文件夹和文件，并使用`Name`属性来修改文件类型。以下是一个示例代码，演示如何使用VBA遍历文件夹并批量修改文件类型（将文件名后缀从.old改为.new）：

Sub BatchRenameFiles()
    Dim fso As Object
    Dim folderPath As String
    Dim folder As Object
    Dim file As Object
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取指定路径下的文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹中的每个文件
    For Each file In folder.Files
        ' 检查文件名后缀是否为.old
        If Right(file.Name, 4) = ".old" Then
            ' 修改文件名后缀为.new
            fso.MoveFile file.Path, folderPath & Left(file.Name, Len(file.Name) - 4) & ".new"
        End If
    Next file
    
    ' 释放对象引用
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    
    MsgBox "批量修改文件类型完成！"
End Sub

请将上述代码中的`folderPath`变量设置为你要遍历的文件夹路径，然后运行`BatchRenameFiles()`过程即可。该过程将会将文件夹中所有后缀为.old的文件名修改为.new。

注意：在使用VBA修改文件类型时，请确保备份好原始文件，以免不可逆地损坏文件。