KB-64106: Contando o número de linhas em arquivos texto (TXT) através do E3.

Descrição:

Como posso contar o número de linhas contidas em um arquivo TXT?

Solução:

Para isto, deve-se utilizar os métodos do objeto FileSystemObject.

Exemplo:

‘Script para retorno de linhas do arquivo TXT
i = 0

Set fso = CreateObject(“scripting.FileSystemObject”)
Set f = fso.OpenTextFile(“C:\Teste.txt”,1)

Do Until f.AtEndOfStream
f.SkipLine
i = i +1
Loop

Msgbox “Número de linhas: ” & i