令我惊讶的是，通过在互联网上搜索来找到这个目的的简单解决方案并不是那么容易，它可以很快地集成到我的代码中。在许多情况下，答案与其他东西集成在一起。我将提出我的解决方案，并等待解决此问题的其他答案。
发布于 2019-10-04 16:38:53
由于这个函数时不时的出现，我在我的项目中需要我决定为它创建一个单独的函数。代码如下：
Function getFolderPathFromFilePath(filePath As String) As String Dim lastPathSeparatorPosition As Long
