Ler arquivos de uma pasta

[AndersonDutra 4]

O seguinte código Vbscript lê e copia o conteúdo do arquivo e cola em um arquivo TXT.

Option ExplicitDim FS,Arq,grava,Files,Dir,grav,Parq,WS	Set WS = CreateObject("Wscript.Shell")	Set Fs = CreateObject("Scripting.FileSystemObject")	Set Arq = FS.OpenTextFile("C:\Estagiário\Anderson\1080a\Exercicios\leitura de arquivo\Idrfsjc021a.log",1) 	Set grava = Fs.CreateTextFile("gravado2.TXT",true)  grav = Arq.ReadAll  Wscript.Echo grav  grava.Writeline grav

Mas ele lê do endereço especifico, só o que eu queria que ele abra leia todos os arquivos e cole os conteúdos no arquivo txt.

:o

[Mário Monteiro 179]

cara você terá que usar um loop para listar todos os arquivos e para cada arquivo encontrado usar seu codigo acima...

[Mário Monteiro 179]

este codigo lista os arquivos, então no lugar de escrever seu nome na tela use-o para listar seu conteudo com o seu codigo acima

 

http://www.imasters.com.br/forum/index.php...=0entry297157

[AndersonDutra 4]

Eu tentei fazer com FOR mais ele fala que:

O objeto não dá suporte para a propriedade ou método: "ReadAll"

O código que eu fiz ficou assim:

Option ExplicitDim FS,Arq,grava,Files,Dir,grav,Parq,WSSet WS = CreateObject("Wscript.Shell")Set Fs = CreateObject("Scripting.FileSystemObject")Set Parq  = FS.OpenTextFile("C:\Estagiário\Anderson\1080a\Exercicios\leitura de arquivo\Pasta de testes")Set grava = Fs.CreateTextFile("gravado.TXT",true)Set Dir = Fs.GetFolder("C:\Estagiário\Anderson\1080a\Exercicios\leitura de arquivo\Pasta de testes")For each Parq in Dir.Files	if INSTR(Ucase(Parq.Name),".LOG")then  grav = PArq.ReadAll  grava.Writeline Parq.Name  grava.Writeline grav	end ifnext

[Mário Monteiro 179]

car tem que ser o contrario primeiro você pega os nomes e depois abre o arquivo, você abre um e deposi que copiar os conteudo sem abrir os outros ai não dá mesmo...faça assim pegue o codigo que passei e onde esta o response,write file.name coloque seu codigo, so fique de olho pras variaveis e objetos não se repetirem e a cada passagem do for abra o arquivo e insira no seu log, se o erro persistir posta aqui...

[AndersonDutra 4]

Eu fiz assim, não sei se estar certo, mais continua dando o mesmo erro

Option ExplicitDim FS,Arq,grava,Files,Dir,grav,Parq,WS,arquivos,arquivo,itemSet Fs = CreateObject ("Scripting.FileSystemObject")Set arquivo = Fs.GetFolder("C:\Estagiário\Anderson\1080a\Exercicios\leitura de arquivo\Pasta de testes")Set grava = Fs.CreateTextFile("gravado.TXT",true)Set arquivos = arquivo.filesFor Each Item in arquivosif INSTR(Ucase(Item.Name),".LOG")then grav = Item.ReadAll grava.Writeline Item.Name grava.Writeline gravend ifNextSet arquivos = nothingSet arquivo = nothingSet Fso = nothing

[Mário Monteiro 179]

vou testarv este codigo...

[Mário Monteiro 179]

ta ai cara, espero que seja isso

 

[tr][/tr][tr][/tr]

ASP

<% Option Explicit Dim Fso,Diretorio,Grava,Arquivos,Item,Arquivo,Conteudo   Set Fso = CreateObject ("Scripting.FileSystemObject") Set Diretorio = Fso.GetFolder(Server.MapPath("fso"))   IF Fso.FileExists(server.mappath("grava.txt")) = false then Set Grava = Fso.CreateTextFile(server.mappath("grava.txt")) Grava.Close() Set Grava = Nothing End If   Set Grava = Fso.OpenTextFile(server.mappath("grava.txt"), 8)   Set Arquivos = Diretorio.files For Each Item in Arquivos   if INSTR(Ucase(Item.Name),".LOG")then Set Arquivo = Fso.OpenTextFile(Server.MapPath("fso")&"/"&Item.Name,1) Conteudo = Arquivo.ReadAll Grava.Writeline Item.Name Grava.Writeline Conteudo Arquivo.Close() Set Arquivo = Nothing end if   Next   Grava.Close Set Grava = Nothing   Set Arquivos = nothing Set Arquivo = nothing Set Fso = nothing %>

[AndersonDutra 4]

Muito Obrigado, deu certo!!!!

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Mário Monteiro 179]

Muito Obrigado, deu certo!!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif de dana precisou e se souber ajudar tamos ai... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif