Seach Files for latest file

[MM User]

Hi,

I have a directory which I would like to search and list the latest file
together with it date and time, I've found the following from w3schools for
a particular file but do not know how to search a folder and sub folders for
the latest file:

dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.txt")
Response.Write("File last modified on: ")
Response.Write(f.DateLastModified)
set f=nothing
set fs=nothing


Any help is appreciated!