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.

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

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

Não sei o que seria de mim sem vocês. Excelente feriado para vocês. Passa a regua.

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

Faz favor. Muito obrigado.

Desculpe-me. Funcionou. Na realidade, estava utilizando arquivos no diretorio que não continham textos. Valeu, vocês. são bons mesmo. Abs.

Objeto Server error 'ASP 0177 : 800a003e' Falha em Server.CreateObject /lertexto.asp, line 20 A operação foi concluída com êxito.

Está me dando este erro. Esta propriedade ou método não tem suporte do objeto: 'Readline'

Legal. Vamos lá. Em um pasta, que é alimentada automaticamente, tenho vários arquivos que contém informações necessárias com data, pagina, etc. Ex.: %%Title: 08gi2a01d_RINALDO.pdf %%Creator: OneVision Asura Version 6.1 (SR 3) (Windows Build 11.105.S) %%CreationDate: 2005-04-18 Ca1 pagina 03 %%+ grayscaleImageCompression NONE Na 3ª linha, encontram-se as informações que preciso. "2005-04-18 10:37:30 -0300" Preciso copiar esta linha de vários arquivos para um banco de dados para depois mostrá-la numa página.

Boa tarde. É possível fazer uma rotina em ASP onde se abre um arquivo txt, encontrar uma linha especifica e salva estas informações para mostrá-la em uma página? Na realidade, criaria um loop para varrer um diretorio, abrir o ultimo arquivo, identificar uma linha especifia, copiá-la e mostra-la dinamicamente em uma página. Obrigado. Abs.

Valeu cara. Serviu para o que eu precisava. Muito obrigado.

Sim, no entanto esses valores não estão em um banco ainda. As variáveis foram recebidas através de um form. Gostaria de ordená-las para mostrá-las e, se os valores estiverem de acordo, aí sim armazená-las num banco. Obrigado.

Boa tarde. Se tenho alguns valores de variáveis, como posso ordená-lo para mostrá-los? Ex. a = 4 b = 5 c = 1 d = 3 e = 2 saia 1 2 3 4 5 Obrigado.

Ainda não funciona. c1 = "a" c2 = "b" c3 = "c" numero = 0 for cont = 1 to 10 numero = numero+1 cad_Pag = CStr(numero) response.write (c&+numero) next Deveria mostrar os valores das variaveis c1, c2 e c3 no caso a, b e c Obrigado

Desculpe-me. Não fui claro Tenho valores em um banco para c1, c2, c3....... Gostaria que esses valores fossem mostrados abaixo automaticamente. É possivel? Exemplo. numero = 0 for cont = 1 to 16 numero = numero+1 response.write c(&numero) next Obrigado.

Tenho valores em um banco para c1, c2, c3....... Gostaria que esses valores fossem mostrados abaixo automaticamente. É possivel? Exemplo. numero = 0 for cont = 1 to 16 numero = numero+1 response.write c(&numero) next Obrigado.