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

在VBA中，可以使用FileSystemObject对象来获取路径字符串中的父文件夹名称。以下是一个示例代码：

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

在上述代码中，首先创建了一个FileSystemObject对象，然后设置了路径字符串。接下来，使用GetParentFolderName方法获取了父文件夹对象，并通过parentFolder.Name获取了父文件夹名称。最后，释放了对象以释放内存。

这种方法可以用于从任意路径字符串中获取直接的父文件夹名称，无论路径字符串是绝对路径还是相对路径。