Publicado em 10 de out.

Listar arquivos COM ORDENAÇÃO POR NOME

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?

Discussão (6)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

daniloprates· 11 de out.

E entao people, não dá?

Mário Monteiro· 11 de out.

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

daniloprates· 17 de out.

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· 17 de out.

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· 17 de out.

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

dark0· 17 de out.

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..