Ayuda + manejo de archivos

[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