从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对象。