Vba extract filename from path

Function GetFilenameFromPath(ByVal strPath As String) As String
    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, _
        	Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function

Source: stackoverflow.com

Similar codes

5 votes175 views1 answer
Excel vba high word from Long Integer
VBA
0 vote197 views1 answer
Excel vba set cell value to empty
VBA
8 votes266 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote134 views1 answer
Vba code to remove leading and trailing spaces
VBA
1 vote171 views1 answer
Add control vb
VBA
0 vote187 views1 answer
Excel R1C1 mode
VBA
0 vote167 views1 answer
Change "location" of binding navigator vb
VBA
-1 vote183 views1 answer
VBA check if a cell contains a letter or string
VBA
1 vote166 views1 answer
Excel vba saveas force overwrite
VBA
1 vote170 views1 answer
Vba delete array element
VBA