[Resolvido] extrair a extensão

[xanburzum 169]

Este é um simples de código que pode ser usado para extrair a extensão de 3 caracteres de um arquivo ou documento e exibir uma mensagem diferente ou executar uma função diferente para cada um. Muito útil quando usado com um carregamento de arquivo.

 

<%
dim strFileName, str3, strExt

strFileName = UCase(RS("FileName"))	'Obtendo o nome do nosso banco de dados e definir o conteúdo da seqüência.
intHowLong = Len(strFileName)		'número de caracteres contidos no arquivo.
str3 = intHowLong - intHowLong + 3	'Subtraindo o número de caracteres, adicionando 3. Este   remove o nome do arquivo e deixando apenas a extensão.
strExt = Right(strFilename, str3)		'Isolar a extensão (os três últimos caracteres da strFileName) a partir do arquivo
%>


<%
If strExt = "JPG" Then
Response.Write "JPEG"
End If
%>

<%
If strExt = "GIF" Then
Response.Write "GIF"
End If
%>

<%
If strExt = "PDF" Then
Response.Write "Adobe Acrobat PDF"
End If
%>

<%
If strExt = "DOC" Then
Response.Write "Documento Microsoft Word "
End If
%>