使用VBA，如何从路径字符串中获取直接的父文件夹名称？

Sub GetParentFolderName()
    Dim fso As Object
    Dim path As String
    Dim parentFolder As Object
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置路径字符串
    path = "C:\Users\Username\Documents\Example\File.txt"
    
    ' 获取父文件夹对象
    Set parentFolder = fso.GetParentFolderName(path)
    
    ' 输出父文件夹名称
    MsgBox parentFolder.Name
    
    ' 释放对象
    Set parentFolder = Nothing
    Set fso = Nothing
End Sub