VBA 中重命名文件夹

在VBA（Visual Basic for Applications）中，虽然原生的VBA并不直接支持修改文件夹名称，因为这通常是操作系统的权限范围。但是，你可以通过创建shell对象并调用其方法来间接实现这个功能，通常需要借助Windows API。下面是一个简单的示例，说明如何使用VBA尝试重命名一个文件夹：

Sub RenameFolder()
    Dim fso As Object ' 引入FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 替换 "YourFolderPath" 和 "NewFolderName" 为你实际的文件夹路径和新名字
    Dim oldPath As String
    oldPath = "YourFolderPath"
    Dim newPath As String
    newPath = "NewFolderName"
    
    ' 使用 MoveFolder 方法，如果成功则返回True，否则False
    If Not fso.Folder(oldPath).MoveFolder (newPath) Then
        MsgBox "Error renaming the folder." ' 显示错误消息
    Else
        MsgBox "Folder renamed successfully." ' 成功消息
    End If
    
    Set fso = Nothing ' 清理引用
End Sub

在运行此代码之前，请确保有足够的权限，并且确保新文件夹名不存在于目标位置。