Muy simple, pero con esta funcion puedes extraer el nombre de un archivo, incluyendo su extensión, desde una url.

Código:
Function ExtraerNombreDeUrl(strUrl As String) As String
inicioNA = InStrRev(strUrl, "/") + 1
largoNA = Len(strUrl) - a + 1
ExtraerNombreDeUrl = Mid(strUrl, inicioNA, largoNA)
End Function
y con esta extraes su extension:

Código:
Function TomarExtension(NombreArchivo As String) As String
On Error Resume Next
inicioEXT = InStrRev(NombreArchivo, ".")
largoEXT = Len(NombreArchivo) - inicioEXT + 1
TomarExtension = Mid(NombreArchivo, inicioEXT, largoEXT)
End Function
Saludos,
Skipped.


Edited by: Skipped