从 Excel VBA 中的路径获取文件夹名称

Question

为此，我没有通过在互联网上搜索的简单解决方案找到可以快速集成到我的代码中的解决方案。 我提出我的解决方案。

Answer 1

你实际上可以用一行代码来做到这一点：

Function GetFolderNameFromPath(folderPath As String) As String
    GetFolderNameFromPath = Split(folderPath, Application.PathSeparator)(UBound(Split(folderPath, Application.PathSeparator)))
End Function

Answer 2

由于此功能不时，我需要在我的项目中决定为它创建一个单独的功能。 它的代码如下：

Function GetFolderNameFromPath(folderPath As String) As String

Dim lastPathSeparatorPosition As Long, folderPathLength As Long, folderNameLength As Long

lastPathSeparatorPosition = InStrRev(folderPath, Application.PathSeparator)
folderPathLength = Len(folderPath)
folderNameLength = folderPathLength - lastPathSeparatorPosition
GetFolderNameFromPath = Right(folderPath, folderNameLength)

End Function