Con nuestro mismo ejemplo:
<%
Set fso= server.createObject("Scripting.FileSystemObject")
Set mi_folder= fso.getFolder (Server.MapPath("imagenes\"))
x=0
For each item in mi_Folder.Files
Response.Write(item.name & "< br >")
x= x + 1
Next
Response.Write("Existen " & x & " archivos")
%>
Espero estar bien esta vez
Salu2,