Ayuda + manejo de archivos

[ACX_POISON]

Gracias X leerlo

Amigos estoy probando un codigo que consegui con el proposito de listar todos los archivos de una carpeta. actualmente esto lo logro mediante:

<%

'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\imagenes\"
response.write ( nombre_carpeta )
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
'para cada archivo, muestro su nombre.
for each nombre_archivo in archivos
response.Write "<br>" & nombre_archivo
set xx = nombre_archivo.GetExtensionName

next
%>

ahora necesito como hacer para que me imprima solo el nombre de los archivos con una extencion determinada...

se que se puede utilizar GetExtensionName

pero no se como hacerlo......

[Adler]

Hola

Prueba así

'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\imagenes\"
response.write ( nombre_carpeta )
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
'para cada archivo, muestro su nombre.
for each nombre_archivo in archivos
nombre = FSO.GetFileName(nombre_archivo)
extension = FSO.GetExtensionName(nombre_archivo)
Response.Write "<br>" & nombre
next

Suerte

[ACX_POISON]

Adler Garcias X Contestar

Me funciono muy bien.

Muchas GRacias---->