[Resolvido] Pegar extenção de arquivo em expressão regular

[Patrique 0]

<%

Function ExtArq(byVal Arquivo)

dim regExt

Set regExt = New RegExp

regExt.Pattern = "^.*(\.[^\.]*)$"

regExt.Global = False

regExt.IgnoreCase = True

ExtArq = regExt.Replace(Arquivo, "$1")

Set regExt = Nothing

End Function

 

Response.Write ExtArq("teste.gif")

%>