Visualizzare cartelle di una directori x nome

[klinik]

Salve, devo far visualizzare le cartelle di una directori ed ho usato questo script:

<%
dim categ
categ = Request.QueryString("categ")

response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Set Cartella = objFSO.GetFolder(Server.mappath(".\public\fotoarch ivio\upload"))

' categoria dinamica con querystring
Set Cartella = objFSO.GetFolder(Server.mappath(".\public\fotoarch ivio\"&categ&""))

For Each objItem In cartella.SubFolders

response.write " <a href=galleria.asp?t="&objItem.Name&"&categ="&categ &">"&objItem.Name&" </a> - "

Next
%>

il sistema funziona, ma mi incolonna malamente le cartelle,

se creo le cartelle in ordine
1957
1958
1959
1960

allora la lista viene in ordine,

se creo le cartelle

1957
1958
1960
1959

allora la lista me la fà in ordine di creazione delle cartelle,
non mi crea la lista in ordine di data/n°

Come posso fare?

Grazie
Gab

[Roby_72]

Dovresti crearti un array e poi ordinare quello...

Roby

[klinik]

Ho provato così... ma il risultato è uguale a prima...



<%

dim categ
categ = Request.QueryString("categ")

sub heapfy(byref V,j,byval n)
k=j
if ((2*j+1)<=n) then
if (V(2*j+1)>V(k)) then
k=2*j+1
end if
end if
if ((2*j)<=n) then
if (V(2*j)>V(k)) then
k=2*j
end if
end if
if (k<>j) then
t=V(j)
V(j)=V(k)
V(k)=t
call heapfy(V,k,n)
end if
end sub

sub ordina(byref V)
n=ubound(V)
i=n\2
while (i>=0)
call heapfy(V,i,n)
i=i-1
wend
i=n
while (i>=1)
t=V(i)
V(i)=V(0)
V(0)=t
call heapfy(V,0,(i-1))
i=i-1
wend
end sub



response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' categoria dinamica con querystring
Set Cartella = objFSO.GetFolder(Server.mappath(".\public\fotoarch ivio\"&categ&""))

For Each objItem In cartella.SubFolders

listacartelle=objItem.Name

a=array(listacartelle)

call ordina(a)

for i=0 to ubound(a)
Response.Write(a(i)&" ")

Next

Next

%>

[optime]

forse hai scelto un algoritmo troppo compilato... usa un semplice bubble sort