Ordenar directory list por data last modified

[razs 0]

Boas pessoal este script funciona bem mas precisava que ele ordena-se os ficheiros por datelastmodified, alguma ideia?

 

 

'Lista pastas
Set myFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = myFileSys.GetFolder(Server.MapPath("/load/"))

   strFileAndPath = request.servervariables("SCRIPT_NAME")
   strPathOnly = Mid(strFileAndPath,1 ,InStrRev(strFileAndPath, "/"))
   set fldr=myFileSys.GetFolder(Folder)

response.write("<H2>Files list</H2>")
   set FolderList = fldr.SubFolders
   For Each FolderIndex in FolderList

if FolderIndex.name<>"log" then
	'Response.Write("<BR><BR><b><h2>:: "&FolderIndex.name&"</h2></b>")
end if




'lista apenas ficheiros zip
Set Folder2 = myFileSys.GetFolder(Server.MapPath("/load/"&FolderIndex.name))  

	For each file in Folder2.Files
	FileName = file.name   

	Term = right(FileName,3)

	dim  mylen, cutstring,renamefil
	set mylen= nothing
	mylen = len(FileName)-23

	if mylen > "10" then
	renamefil=left(FileName, mylen)
	else
	renamefil=left(FileName,47)
	end if

	urlpath = "/load/"&FolderIndex.name&"/"&filename	

	if term="zip" then
		FileSize = file.size

		Set rs12 = conn.Execute("select ficheiro from certif where ficheiro='"&urlpath&"'")

		if rs12.eof then

			%><div class="auto-style1" style="width: 350px; height: 50px; float: left">
			<%Response.Write("<br><br><a href='"&urlpath&"'>"&file.DateLastModified&"<br>"&renamefil&"</a><br>")'<input type=""radio"" name=""check"" value=/load/"&FolderIndex.name&"/"&FileName&"><br>")
			%>
			</div>
			<br><br><br><br>
			<input align="center" name="checkex" type="radio" value="/load/<%=FolderIndex.name%>/<%=FileName%>">
			<br>


<%
		end if
	end if
	next
	'next	
   Next
Set myFileSys = nothing

[xanburzum 169]

use essa opção pelo FSO, tem um exemplo de webexplorer que postei que tem isso, olha no la. de script

[razs 0]

Obrigado Xan, vi o teu exemplo mas nao percebi onde estava essa parte :s