使用分割function只用一行查找文件path中的最后一个文件夹

我有一个function，看起来像

Dim arrFold() As String Dim lastFold As String arrFold = Split(filePath, "\") lastFold = arrFold(ubound(arrFold)) 

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

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