Pega extensão do arquivo

Essa função pode ser muito útil para renomear um arquivo na hora do upload.

<%
'----------------------------------
' Função: Pega Extensão Do Arquivo
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Data De Criação: 05/06/2003
' Última Atualização: 06/06/2003
'----------------------------------
Function Extensao(arquivo)
 x = InStrRev(arquivo, ".")
 If x = 0 Then
  Extensao = "Arquivo inválido"
 Else
  y = Mid(arquivo, x)
  If Len(y) < 3 Then
   Extensao = "Arquivo inválido"
  Else
   Extensao = y
  End If
 End If
End Function
%>
<%= Extensao("figura.jpg")%>

Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...