Ordem Crescente, Decrescente, Por Data

[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

[ViniciusJau]

pra você fazer isso tem que mudar no seu SLQ

assim:

SELECT * FROM tabela ORDER BY campo ASC

SELECT * FROM tabela ORDER BY campo DESC

[dark0]

order by asc - ou desc

bem como foi falado..

[cyberalexxx]

order by asc - ou desc

bem como foi falado..

Ele não esta usando banco de dados!!!

Ele esta buscando arquivos em um diretório usando FSO e listando os mesmos.

[Rinaldo]

Para ficar mais claro

pasta = "d:/Inetpub/ftproot/apspreset"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set principal = FSO.GetFolder(pasta)

Set arquivos = principal.Files

For each arq in arquivos

Set arquivo = FSO.OpenTextFile(arq,1)

if total < 200 then

response.write "arq"

a = arquivo.Readline

else

response.end

end if

total = total+1

Next

a cada dia são colocados por volta de 300 arquivos na pasta. Quando eu listo, os arquivos vem do que foi posto em 1º para o último. Se eu filtar para trazer apenas 200, ele nunca trará os últimos. Se listar tudo, em 1 semana já terei por colta de 2000 arquivos. O processador "num guenta". A ideia era indexar de alguma forma sem coloca-los em um banco de dados.

Será que consegui explicar?

Abs.

[cyberalexxx]

Voce poderia criar um tipo de nomenclatura de arquivo que o identificasse por data ai voce faria comparações para poder exibir apenas arquivos de uma data especifica.

[Rinaldo]

Infelizmente não tenho controle sobre o arquivo que entra.

A solução talvez fosse criar um banco de dados, porém, a cada minuto pode chegar arquivos novos.

Ai teria que estar checando se os dados daquela arquivo já foram ou não cadastrados.

[cyberalexxx]

esses arquivos chegam através de upload??

Da pra renomear no ato do upload.

[Rinaldo]

Não.

Estou copiando de um outro servidor.

O que estou fazendo agora, é enviar todos os dados para um banco.

Só que gostaria de deletar cada um dos arquivos que já tenha sido lido.

Ex.;

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

arq.delete

Next

Como posso fazer isso?

[cyberalexxx]

deletando arquivo:

FSO.Deletefile (arq)

[bareta]

você pode gravar no bd na hora de gerar a consulta....

tipo primeiro deleta tudo que no bd ai grava e depois exibe...

[Rinaldo]

Esta dando erro de permissao.

Permissão negada

E provavel que seja permissao no servidor ou os arquivos estão somente para leitura.

[cyberalexxx]

Esta dando erro de permissao.

Permissão negada

E provavel que seja permissao no servidor ou os arquivos estão somente para leitura.

o arquivo não esta aberto???

antes do delete feche o arquivo

set arquivo =  nothing

[Rinaldo]

Cara, era isso.

Vou trabalhar nesta quinta, sexta, sabado e domingo muito mais animado.

Grande abraço para vocês.

Logo logo volto a incomodar.

Valeu

[cyberalexxx]

beleza!!!

qualquer coisa posta ai!!

Mais trabalhar de quinta a domingo, para com isso!!! Só ligo a maquina para jogar NFS Undergroung

[]'s

[Rinaldo]

Familia é grande e alguém em casa tem que trabalhar. Sobra pra mim.

Abs.