使用Split功能只用一行查找文件路径中的最后一个文件夹

Question

我有一个看起来像

的功能

Dim arrFold() As String
Dim lastFold As String

arrFold = Split(filePath, "\")
lastFold = arrFold(ubound(arrFold))

我正在寻找一种简化方法，只需在第一行找到最后一个元素，而不是最初定义一个数组，可以做些什么来避免将其添加到内存中？

Answer 1

debug.print mid(filePath, instrrev(filePath, chr(92))+1)
debug.print trim(right(replace(filePath, chr(92), space(999)), 999))

Answer 2

Sub findLast()
Dim myString As String
myString = "\File\lesser\evenless\least"
MsgBox InStrRev(myString, "\")
End Sub