< Public Function JustFileNoPath (FullFilename As String) As String (?)

Comments

    
    
    '-------------------------------------------------------------------------
    'Returns the portion of a filename from the final \ to the end
    '-------------------------------------------------------------------------

Public Function JustFileNoPath (FullFilename As String) As String

    
    Dim i As Integer
    i = InStrRev(FullFilename, "\")
    If i > 0 Then
        JustFileNoPath = Right(FullFilename, Len(FullFilename) - i)
    Else
        JustFileNoPath = FullFilename
    End If
End Function

Copying, Return to index