Nyeste fil i folder ... igen

Hmm ... tænker lige over den ..

<%
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set folder = fso.GetFolder(Server.MapPath(\".\"))
Set files = folder.Files

strNewestFile = \"\"
strNewestFileDate = \"\"
for each file in files
    strLastEdited = file.DateLastModified
    strFileName = file.Name
    if strNewestFile = \"\" then
        strNewestFile = strFileName
        strNewestFileDate = strLastEdited
    else
        if Datediff(\"n\", Now, strLastEdited) > Datediff(\"n\", Now, strNewestFileDate) then
            strNewestFile = strFileName
            strNewestFileDate = strLastEdited
        end if
    end if
next

Response.Write strNewestFile
Response.Write \".....Edited last: \" & strNewestFileDate
Set fso = Nothing
%>

Hej Bjarke-b

TUSIND tak for hjælpen!!!!!!! det var sateme hurtigt og effektivt :o)

hilsener

Tommy