Получить имя папки из пути в Excel VBA

Question

Я не нашел путем поиска в inte rnet простого решения для этой цели, которое можно быстро интегрировать в мой код. Я предлагаю свое решение.

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