bernardo Srur

Olá pessoal to fazendo esse código mas estou com um problema ... é o seguinte ele abre como leitura 2 arquivos existente.txt eo procura.txt e abro para escrita diferenca.txt como edição... a minha intenção era que dentro do primeiro loop ele abrisse o primeiro arquivo (existente.txt) e dentro do segundo loop comparasse com todo o arquivo procurando por igual a ele ao achasse ele gravaria no arquivo diferenca.txt, isso ele repetiria linha por linha varrendo o arquivo de procura... so que ao receber o primeiro valor de igualdade do arquivo ele sai do loop e encerra a operação ... alguém pode me ajudar ? segue baixo o código. <% 'O parâmetro forReading é utilizado somente para leitura. Const forReading = 1, forWriting = 2, forAppending = 8 'Instância o objeto FSO. Set Fso = CreateObject("Scripting.FileSystemObject") 'O método GetFile retorna o arquivo existente. Set ObjExistente = Fso.GetFile(server.MapPath("existente.txt")) Set ObjProcura = Fso.GetFile(server.MapPath("procura.txt")) Set ObjAberturaDiferenca = Fso.OpenTextFile(server.MapPath("diferenca.txt"),8,True) 'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. Set objStreamExistente = ObjExistente.OpenAsTextStream(forReading,false) Set objStreamProcura = ObjProcura.OpenAsTextStream(forReading,false) 'Looping para varrer todas as linha do arquivo do aquivo existente.txt While Not objStreamExistente.AtEndOfStream 'O método Readline lê uma linha de um arquivo rsExistente = objStreamExistente.Readline 'inicio do segundo loop While not objStreamProcura.AtEndOfStream rsProcura = objStreamProcura.Readline if rsExistente = rsProcura then ObjAberturaDiferenca.WriteLine(rsProcura) end if Wend 'fim do looop do aquivo existente.txt Wend 'Fecha o arquivo. objStreamExistente.Close objStreamProcura.Close ObjAberturaDiferenca.Close 'Destruíndo objetos Set Fso = nothing Set ObjExistente = nothing Set ObjProcura = nothing %>