Sortere på dato
HejJeg har dette script, som virker fortrinligt, men jeg vil gerne have filerne sorteret med den nyeste dato først i stedet for som nu alfabetisk og samtidig vil jeg kun have vist dato ikke klokkeslet, er det muligt?
<%
vPath = "Feb/Vest/mappe1"
pPath = Server.MapPath( vPath )
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set myFolder = fs.GetFolder( pPath )
%>
<html>
<head>
<title>test</title>
</head>
<body>
<table BORDER="1" bgcolor="#E6E6E6" cellspacing="0" cellpadding="10" bordercolor="#FFFFFF"
width="560">
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" colspan="3" width="538"> </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"> </td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
<td WIDTH="133"> <%=thing.DateLastModified %></td>
<td WIDTH="194"> <a href="Feb/Vest/mappe1/<%=thing.Name%>" target="_blank"><%=thing.Name%></a></td>
<td WIDTH="66"> </td>
</tr>
<% Next %>
</table>
<p><br>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
strPath = "Feb/Vest/mappe1"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%></p>
</body>
</html>
