Ordinare cartelle per data creazione

[AltF4]

Ciao a tutti, utilizzo uno script per visualizzare le cartelle presenti sul server in una select, l'ordinamento predefinito è in ordine alfbetico, esiste la possibilità di ordinare le cartelle in basa alla data di creazione?

Questo è lo script:

<select name="folder" size=1 id="folder">
                        <% 
  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath("/public/")
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)
  For each Folder in objFolder.SubFolders
  	If Left(Folder.Name,1)<>"_" Then
	  	Response.write "<option "
	  	If ShowSub=Folder.Name Then
	  		Response.Write "selected "
	  	End if
	  	Response.Write"value='" & CurFile
	  	Response.Write(Replace(Folder.Name, " ", "%20"))
	  	response.write "'>"
	  	Response.Write(Folder.Name & "</option>")
	  	If ShowSub <= " " Then
	  	  ShowSub = Folder.Name
		End if
  	End if
  Next 
  Set objFSO = Nothing
  %>
                      </select>