excel - 如何从文件路径中提取文件夹

Question

我正在寻找一个函数，该函数将返回文件路径中的第四个文件夹。

例如，假设我的文件路径是“C:\Users\Desktop\Programs\Training Log\Folder Database”。我想提取“Training”文件夹并保存为变量。

这是我当前的功能:

Function GetFilenameFromPath(ByVal strPath As String) As String

    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function

此函数返回直接父文件夹。我如何指定除直接父级之外的文件夹？

Answer 1

您可以使用Split来获得第四部分。

Sub Sample()
    Dim FilePath As String
    Dim MyAr As Variant

    FilePath = "C:\Users\Desktop\Programs\Training Log\Folder Database"
    MyAr = Split(FilePath, "\")

    Debug.Print MyAr(4)
End Sub