RUI_BARROS

É muito simples maninho, basta inserir um objeto que retorne a pasta onde estão seus arquivos e usar um For...Next pra retornar o nome de cada um deles. ai você executa o loop em todos os arquivos. O código fica assim: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\temp\teste") For Each File in objFolder.Files[/b] Set objFile = objFSO.OpenTextFile("C:\temp\teste\" & File.name, 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 Next Creio que isso resolva seu problema. Espero ter ajudado...