Listar arquivos COM ORDENAÇÃO POR NOME

[daniloprates 0]

Esse é o sistema que eu uso:

 

Set objFileSys = Server.CreateObject("scripting.FileSystemObject")Set Thefolder = objFileSys.GetFolder(CAMINHOFOTOS)Set Thefiles = TheFolder.files

<% For Each Thefiles in TheFiles %><% = Thefiles.name %><br><% next %>

Mas é listado por ordem de inclusão. Alguém sabe se é possível definir a ordem?

[daniloprates 0]

E entao people, não dá?

[Mário Monteiro 179]

nao sei se da para ordenar diretamente no FSO mas voce pode armazenar tudo num array ordenar e exibir depois

[daniloprates 0]

marioufpa, então, eu soui muito ruim com ARRAY, não tenho conhecimento nenhum... será que não tem nenhuma forma direto no FileSystemObject?

[Marcelo Barcellos 0]

Ou então, incluir as informações em um recordset desconectado e utilizar a função "sort".

 

Exemplo

Set objRs = Server.CreateObject("ADODB.Recordset")objRs.CursoLocation = 3objRs.CursorType = 1objRs.Fields.append "nome",advarChar,255objRs.Open  For Each Thefiles in TheFiles		  objRs.AddNew		  obJRs("nome") = Thefiles.name		  objRs.Update  NextobjRs.Sort = "nome asc"While Not objRs.EOFResponse.write objRs("nome") & "<br>"objRs.movenextwend

[Mário Monteiro 179]

eu nao conheço mas nao posso afirmar que nao tenha

[dark0 0]

olhaacho q nao é possivel ordenar direto via FSO ..nao sei dizer se o vbscript possui alguma função..mas acredito q naoPrecisei fazer algo parecido uma vez ..e tive q usar o lance do array..