令我惊讶的是,通过在互联网上搜索来找到这个目的的简单解决方案并不是那么容易,它可以很快地集成到我的代码中。在许多情况下,答案与其他东西集成在一起。我将提出我的解决方案,并等待解决此问题的其他答案。
发布于 2019-10-04 16:38:53
由于这个函数时不时的出现,我在我的项目中需要我决定为它创建一个单独的函数。代码如下:
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对象来实现这个简单的功能,那么创建FSO对象是不值得的。
https://stackoverflow.com/questions/58232772
复制相似问题