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

8 votes240 views1 answer
Vba make integer
VBA
4 votes215 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
1 vote210 views1 answer
Vba reverse string
VBA
0 vote190 views1 answer
Vba apostrophe chr
VBA
0 vote229 views1 answer
Vba cell all borders
VBA
0 vote220 views1 answer
Excel vba protect shapes
VBA
1 vote235 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote216 views1 answer
Excel vba protect scenarios
VBA
1 vote201 views1 answer
Close form vba
VBA
0 vote215 views1 answer
Vba string
VBA