Nombre del arhivo más moderno de un directorio

[alvgarci]

No se si es la manera más eficiente, y si hay más de uno con la misma fecha solo se queda con uno. Pero funciona !!!!!!!

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("./images"))

masreciente=#1980/1/1#

'Mostramos los archivos...
For each filefound in lista_archivos.files
if filefound.DateLastModified > masreciente then
masreciente=filefound.DateLastModified
archivo=filefound.Name
end if
Next

response.write archivo & " - " & masreciente
%>