Como juntar vários conteudos de txt em um só arquivos em VBS

[Mike Assis 0]

Ola pessoal

sou novo no fórum e preciso de uma ajuda

tenho um VBScript q serve para pegar alguns Status em arquivos de Log TxT e criar um contador para cada Status

porém só consegui fazer com que funcione especificando o nome do arquivo

gostaria de saber se tem como ele lê-se todos os arquivos do diretório

O padrão do conteudo dos logs é:

 

OIBM9Y1|DOMAIN;LOGIN;APPLICATION;INCLUIR;1

OIBM9Y1|DOMAIN;LOGIN;APPLICATION;INCLUIR;2

 

sendo o ultimo campo após o ";"(1, 2) o status do Log

meu código ficou assim

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\temp\teste\TextToRead.txt", 1)

Do Until objFile.AtEndOfStream

strCharacters = objFile.Read(2)

CopyCaracter = strCharacters

 

Select Case CopyCaracter

Case ";1"

AppAdd = AppAdd + 1

Case ";2"

AppRem = AppRem + 1

Case ";3"

AppNotFind = AppNotFind + 1

Case ";4"

UserNotFind = UserNotFind + 1

Case ";5"

UserAccRepeat = UserAccRepeat + 1

Case ";7"

UnknownError = UnknownError + 1

End Select

Loop

 

porém ele só le o arquivo "C:\temp\teste\TextToRead.txt" e não o diretório "C:\temp\teste\".

Ja tentei mudar para "C:\temp\teste\*.txt" porém não tive sucesso

 

Desde já

Obrigado

[xanburzum 169]

você pode fazer um loop nos arquivos, para ler o conteúdo e gravar em outro txt

[Mike Assis 0]

como faço isso em VBS?

Não tenho muita experiencia em scripts

[Mário Monteiro 179]

Olá Mike Assis,

 

Seu post foi dividido em um novo tópico.

 

A referência onde seu post se encontrava é o seguinte tópico.

 

Abraços

 

Mário Monteiro