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
_________________
By Gab

[byluciani]

strano, perchè dovrebbero essere sempre in ordine alfabetico
_________________


byluciani

[klinik]

...ed invece....le cartelle le incolonna per data di creazione .....

Suggerimenti?

Gab
_________________
By Gab

[klinik]

Mi hanno suggerito di creare un array ed incolonnarlo...
ma non cambia niente...

<%

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\fotoarchivio\"&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

%>


Gab
_________________
By Gab

[byluciani]

pur rimanendo convinto che le cartelle vengono già ordinate,
correggi la parte finale del codice così

[klinik]

Grazzie!!!

Tutto funziona!!

Gab
_________________
By Gab

[byluciani]

ovvio
_________________


byluciani