directory listing script
Hej og go' lørdag.Jeg fandt et lille snedigt script som let og hurtigt laver en liste med links vha. directory listing. Og det vil jeg gerne ha' på et website som jeg er ved at lave.
Mit problem er så bare at jeg gerne vil ha' en omvendt alfabetisk rækkefølge.
Feks. så peter.txt kommer før anders.txt.
Og 456.jpg kommer før 001.jpg.
Er der en som kan lave koden om så den gør det ?
Så vl jeg blive glad
Lasse
Her er koden:
<body>
<%
dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = createObject("scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>
<table cellpadding=4>
<tr align=left><th align=left>File Name</th><th>Type</th><th>File Size</th><th>Last Modified</th></tr>
<%
For each objFileItem in objFolderContents
%>
<tr><td align=left>
<a href="<%= objFileItem.Name %>"><%= objFileItem.Name %></a></td>
<td align=right><%= objFileItem.Type %></td>
<td align=right><%= Round(objFileItem.Size / 1024) %>Kb</td>
<td align=right><%= objFileItem.DateLastModified %></td>
</tr>
<%
Next
%>
</table>
</body>
