Listar arquivos em uma pasta e ordenar !

[m4r1n0 0]

Bom dia pessoal, seguinte,

 

estou com um codigo, acho que aqui mesmo do forum, funcionando direitinho, só que seguinte ele esta mostrando os arquivos de dentro de uma pasta, e ordenando por nome do arquivo, queria saber se alguem pode me ajudar a ordenar esses arquivos por data ???

 

Dim Local, File, ObjFSLocal = Server.MapPathSet ObjFS = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = ObjFS.GetFolder(Local)'Exibe arquivos encontradosFor Each File in objFolder.files<b>Arquivos</b>File.Name<b>Modificado</b>File.DateLastModifiednext'Fecha conexãoSet Local = NothingSet File = NothingSet objFolder = Nothing

 

Então....

 

Ele lista os arquivos por nome do arquivo, como faço pra listar por data ?????

 

 

Vlwwwww !

[Ted k' 126]

da uma olhada cara:

 

http://forum.imasters.com.br/index.php?s=&...st&p=854725

[m4r1n0 0]

Resolvido !!!Muito Obrigado !!Sempre que posto algo aqui resolvo!!!Vlw mesmo !!

[m4r1n0 0]

<% 'Exibe arquivos encontradosRs.MoveFirstWhile Not Rs.EoF%>

Aqui no caso, quando não existe arquivos dentro da pasta que codigo coloco ?????

 

ele ta dando erro !

 

 

Script error detected at line 172. Source line: Rs.MoveFirst Description: BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

[jrcardozo 4]

só verificar com um ifif rs.eof then'msg else'segue o codigoend if