Obtener la extension de archivos

[trasgukabi]

Código:

<%set fso = Server.CreateObject("Scripting.FileSystemObject")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set carpeta = fso.GetFolder(Server.MapPath("/"))
set archivos = carpeta.files
Response.Write("<b>")
for each archivo in archivos
	exten = fso.GetExtensionName(Server.MapPath("/")&archivo.name)
	response.write exten&"<br>"
'sólo tienes que poner aqui un ...if exten="extension1" or exten="extension2"...then
next

%>