Descrição:
Como agrupar diversos arquivos TXT em apenas um único arquivo?
Solução:
Para isso, deve-se criar um script para ler o conteúdo de cada arquivo e armazená-lo em uma variável. Depois, deve-se passar o valor dessa variável para o arquivo geral. Por exemplo:
dim conteudo, NFiles, aux, aux1, fso, f
Const ForReading = 1, ForWriting = 2
conteudo = “”
‘número de arquivos:
NFiles = 4
‘lê cada arquivo
for i=1 to NFiles
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f = fso.OpenTextFile(“arquivo”& i & “.txt”, ForReading)
conteudo = conteudo & f.ReadAll & vbNewLine & “**********************” & vbNewLine
next
‘Cria “ArquivoGeral” (se já existir, zera o arquivo)
Set aux = CreateObject(“Scripting.FileSystemObject”)
Set aux1 = aux.CreateTextFile(“arquivogeral.txt”, True)
aux1.Close
‘Joga tudo no ArquivoGeral
Set aux = CreateObject(“Scripting.FileSystemObject”)
Set aux1 = aux.OpenTextFile(“arquivogeral.txt”,8)
aux1.WriteLine conteudo
aux1.Close
arquivo1.txt
arquivo2.txt
arquivo3.txt
…
Anexos:
