Mike Assis

Opa Rui cara funcionou perfeitamente desse jeito Muito Obrigado meu caro tu salvou meu script já estava perdendo a esperança :D

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 alguma função do tipo Dir para ler 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\". já tentei mudar para "C:\temp\teste\*.txt" porém não tive sucesso Desde já Obrigado