Organizar ObjFso

[Rspina 0]

Olá pessoal, é o seguinte....Tenho um diretorio com várias fotos. Estou listando os nomes das fotos utilizando:<% Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set fsArquivo = Server.CreateObject("Scripting.FileSystemObject") Set fsPasta = Server.CreateObject("Scripting.FileSystemObject") ServerPathOrig = left(Request.ServerVariables("PATH_TRANSLATED"),len(Request.ServerVariables("PATH_TRANSLATED"))-9) Caminho = "..\" & "alimentos" & "\" Set ObjPasta = ObjFso.GetFolder(ServerPathOrig & Caminho) contador = 1 For Each ObjArq in ObjPasta.Files response.write Contador & " - " & ObjArq.Name & "<br>" contador = contador + 1 Next %>Acontece que a forma como é listado não é a mais correta:1 - foto1.jpg2 - foto10.JPG3 - foto11.jpg4 - foto12.jpg5 - foto13.jpg6 - foto14.jpg7 - foto15.jpg8 - foto16.jpg9 - foto17.jpg10 - foto18.jpg11 - foto2.jpg12 - foto3.jpg13 - foto4.jpg14 - foto5.jpg15 - foto6.jpg16 - foto7.jpg17 - foto8.jpg18 - foto9.jpgAlguem tem ideia de como posso listar por ordem de nome...1 - foto1.jpg2 - foto2.jpg3 - foto3.jpg4 - foto4.jpg5 - foto5.jpg6 - foto6.jpg7 - foto7.jpg8 - foto8.jpg9 - foto9.jpg10 - foto10.jpg11 - foto11.jpg12 - foto12.jpg13 - foto13.jpg14 - foto14.jpg15 - foto15.jpg16 - foto16.jpg17 - foto17.jpg18 - foto18.jpgvaleu......

[DouGuAra 0]

Eu acho que é bem simples. Vai no diretória e renomeia as imagens de fotos1 para fotos01Abraços....

[Rspina 0]

Ok, amigo. renomear o arquivo daria erro no arquivo swf que mostra as fotos. Segue a solução abaixo......<% Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set fsArquivo = Server.CreateObject("Scripting.FileSystemObject") Set fsPasta = Server.CreateObject("Scripting.FileSystemObject") Set arq = Server.CreateObject("Scripting.FileSystemObject")ServerPathOrig = left(Request.ServerVariables("PATH_TRANSLATED"),len(Request.ServerVariables("PATH_TRANSLATED"))-9) Caminho = "..\" & "alimentos" & "\" Set ObjPasta = ObjFso.GetFolder(ServerPathOrig & Caminho) contador = 1contador = 1 For Each ObjArq in ObjPasta.Files contador = contador + 1 Next total=contadorFor i=1 to total if arq.FileExists(Server.MapPath("../alimentos")&"/foto"&(i)&".jpg") = true then response.write "foto"&(i)&"<br>" else response.write "<b>Você deve colocar uma foto com o nome <u>foto"&(i)&"</u></b><br>" end ifNext%>