vba怎么获取文件夹名称

要获取文件夹名称，可以使用VBA中的FileSystemObject对象的GetFolder方法。

下面是一个简单的示例代码：

Sub GetFolderName()
    Dim FSO As Object
    Dim FolderPath As String
    Dim FolderName As String
    
    ' 设置文件夹路径
    FolderPath = "C:\Path\To\Folder"
    
    ' 创建FileSystemObject对象
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Dim Folder As Object
    Set Folder = FSO.GetFolder(FolderPath)
    
    ' 获取文件夹名称
    FolderName = Folder.Name
    
    ' 显示文件夹名称
    MsgBox "文件夹名称为：" & FolderName
End Sub

在代码中，首先将要获取的文件夹路径设置为FolderPath变量。然后，创建一个FileSystemObject对象并使用GetFolder方法获取文件夹对象。最后，通过Folder.Name属性获取文件夹名称，并显示在消息框中。

请根据自己的实际需求修改文件夹路径。