extensões de arquivo

[xanburzum 169]

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)		'Como o número de caracteres contidos no arquivo.
str3 = intHowLong - intHowLong + 3	'Subtraindo o número de caracteres em seguida, adicionando 3.  remover 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 "Microsoft Word Document"
End If
%>

[jrcardozo 4]

e se o arquivo tiver 2 ou 4 caracteres de extenção!?

 

eu prefiro algo desse tipo

 

dim file

file = "meuarquivo.aspx"

response.write Lcase(Trim(Mid("" & file, InStrRev("" & file, "."))))