Obtener nombre de archivo y extensión de una URL

En esta ocasión vamos a desarrollar una función que nos devuelva el nombre de un archivo o extensión del mismo ya sea de una URL o un directorio de Windows.

Private Function ObtenerNombreArchivoURL(ByVal ruta As String, ByVal separador As String) As String

        Dim ret As String
        If separador = "." And InStr(ruta, separador) = 0 Then Exit Function
        ret = Right(ruta, Len(ruta) - InStrRev(ruta, separador))
        Return ret

    End Function

'Devolviendo extensión del archivo 
        ObtenerNombreArchivoURL("http://www.dominio.com/archivo.rar", ".")
'Devolviendo nombre del archivo completo
        ObtenerNombreArchivoURL("http://www.dominio.com/archivo.rar", "/")

Saludos…