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 votes187 views1 answer
Excel vba low byte from INTEGER
VBA
-1 vote184 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
32 votes341 views2 answers
Excel vba column letter
VBA
0 vote188 views1 answer
Vbs run with cscript
VBA
0 vote132 views1 answer
Vba code to remove leading and trailing spaces
VBA
1 vote171 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
1 vote187 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote175 views1 answer
Excel vba assign shortcut key to button
VBA
1 vote186 views1 answer
How to remove zeros in excel
VBA
0 vote203 views1 answer
Excel vba unlock sheet without password
VBA