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