Sort by dato
Jeg har en kode der ser sådan ud, jeg vil gerne have den sorteret således at den nyeste dato står øverst, er der nogen der kan hjælpe med det<%
vPath = "filer/test"
pPath = Server.MapPath( vPath )
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set myFolder = fs.GetFolder( pPath )
if Request.QueryString("slet") <> "" then
fs.DeleteFile(Server.Mappath(Request.QueryString("slet")))
end if
%>
<html>
<head>
<title>filer</title>
</head>
<body>
<table BORDER="1" bgcolor="#E6E6E6" cellspacing="0" cellpadding="10" bordercolor="#FFFFFF"
width="560">
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" colspan="4" width="538"><strong>filer<br>
Klik på linket under navn for at åbne filen.</strong></td>
</tr>
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="133"><b>Dato:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="194"><b>Navn:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="66"><b>Størrelse:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="41"><b>Slet filen </b></td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
<td WIDTH="133"> <%=thing.DateLastModified %></td>
<td WIDTH="194"> <a href="filer/test/<%=thing.Name%>" target="_blank"><%=thing.Name%></a></td>
<td WIDTH="66"> <%=thing.Size %> </td>
<td WIDTH="41"> <a href="?slet=<% =vPath & "/"& thing.Name%>">Slet</a></td>
</tr>
<% Next %>
</table>
<p><br>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
strPath = "filer/test"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%></p>
</body>
</html>
