Loop Com For Each

[Rinaldo]

Boa noite.

Gostaria de saber como limitar o looping abaixo, sabendo que na pasta onde ele busca os arquivos, existem muito mais do que necessito.

Ex: na pasta arquivos, gostaria de trazer apenas os ultimos 100 arquivos.

Para isso teria que quebrar este loop, certo?

For each arq in arquivos

Set arquivo = FSO.OpenTextFile(arq,1)

responser.write arq

Next

Obrigado

[cyberalexxx]

x= 1
For each arq in arquivos
   if x < 101 then
      Set arquivo = FSO.OpenTextFile(arq,1)
      response.write arq
   else
      response.end
   end if
   x= x + 1
Next

[Rinaldo]

Não sei o que seria de mim sem vocês.

Excelente feriado para vocês.

Passa a regua.

[cyberalexxx]

Não sei o que seria de mim sem vocês.

Excelente feriado para vocês.

Passa a regua.

[]'s

Fechado!!

[cyberalexxx]

Tópico aberto a pedido do Rinaldo

[Rinaldo]

x= 1

For each arq in arquivos

if x < 101 then

Set arquivo = FSO.OpenTextFile(arq,1)

response.write arq

else

response.end

end if

x= x + 1

Next

Na expressão acima, é possível fazer com que a pasta "arquivos" seja listada de formas diferentes,

ex.

Crescente, decrescente, por data, etc???

Obrigado