Muy simple, pero con esta funcion puedes extraer el nombre de un archivo, incluyendo su extensión, desde una url.
y con esta extraes su extension: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
Saludos,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
Skipped.
Edited by: Skipped