quinta-feira, 5 de junho de 2003

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...

2 comentários:

Anônimo disse...

[Enviado originalmente em 06/jun/2003 11:18:54]:

Esta função dará um erro, quando o nome do arquivo for por exemplo:

"meu.nome.jpg"

ou algo do tipo...

Anônimo disse...

[Enviado originalmente em 06/jun/2003 16:21:49]:

qto ao "meu.nome.jpg" n dava erro. mas se colocasse somente "..." ele retornaria somente ".". mas com esse if q coloquei n da mais erro nenhum.