Получить путь к папке из файла внутри этого пути к папке в Excel VBA

Question

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

Answer 1

Поскольку эта функция время от времени мне нужна, в своих проектах я решил создать для нее отдельную функцию. Код этого кода приведен ниже:

Function getFolderPathFromFilePath(filePath As String) As String

    Dim lastPathSeparatorPosition As Long

    lastPathSeparatorPosition = InStrRev(filePath, Application.PathSeparator)

    getFolderPathFromFilePath = Left(filePath, lastPathSeparatorPosition - 1)

End Function

В некоторых решениях для этой цели я использовал FSO, но он требует ресурсов, и я думаю, что создавать объект FSO не стоит, если он нужен только дляэта простая функция.