Hola:
Tengo una página en ASP y un directorio que a su vez contiene muchos dentro de él unos 100, uno correspondiente a cada día en la que subo fotos, esta carpeta tiene un formato 20041006 (año, mes, dia), me funciona perfectamente pero tengo tantos directorios que quiero que me los muestre ordenados por fecha así no tardaré tanto en bajar hasta abajo y ver los del día mas actual.
Este es parte del codigo que tengo, aunque pensé que como lo unico que quiero es ordenar los directorios por fecha, alomejor añadiendo alguna función despues de la ruta donde las busca vale(lo señalo en rojo)
<%
Dim lugar 'direccion original de donde se va a buscar los directorios.
Dim objFSO 'objeto
Dim objFolder 'variable de los directorios
Dim objItem '
'AQUI SE PONE LA DIRECCION DE DONDE SE VA A SACAR LOS DIRECTORIOS
lugar="/fotos/ftp/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(lugar))
%> </div>
<div align="left"></div>
<form>
<%
dim dia
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
dia = mid(objItem.Name,7,2) & "/" & mid(objItem.Name,5,2) & "/" & mid(objItem.Name,1,4)
response.write("<a href='fotos_ftp.asp?nombre=" & objItem.Name & "&dir=" & lugar & objItem.Name & "/peq120" & "'><img src='/imgindex/carpeta.gif' border=0> " & dia & "</a><br>")
End If
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
Muchas gracias por todo y si podeis me echais una mano