Listet filer fra den nyeste folder

Hejsa

Jeg har en stump kode som henter den sidste redigerede folder i en bestemt folder.
Nu vil jeg så gerne have listet alle filerne i den folder.

Jeg har prøvet med dette her. Den nyeste folder bliver fint fundet, men filerne kan jeg ikke rigtig få listet:

-------------------------
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(Server.MapPath("/galleri/"))
Set subfolders = Folder.SubFolders

strNewestFolder = "\"
strNewestFolderDate = "\"
for each Folder in Folder.SubFolders
    strLastEdited = folder.DateLastModified
    strFolderName = Folder.Name
    if strNewestFolder = "\" then
        strNewestFolder = strFolderName
        strNewestFolderDate = strLastEdited
    else
        'if Datediff("n\", Now, strLastEdited) > Datediff("n\", Now, strNewestFolderDate) then
        '    strNewestFolder = strFolderName
        '    strNewestFolderDate = strLastEdited
        'end if
    end if
next

Response.Write strNewestFolder
Response.Write (".....Edited last: " & strNewestFolderDate)

for each File in StrNewestFolder
%>
<%=File.Name%><br />


<%
next
Set StrNewestFolder = nothing
Set fso = Nothing
%>

mvh

Henrik