Como contar las lineas de un archivo txt
Hola, me podrías indicar como hago para contar el numero de lineas que tiene un archivo txt.
Respuesta de xabi
1
Añade una referencia a:
"Microsoft Scripting Runtime"
'Declara esto
Dim fs As FileSystemObject
Dim ts As TextStream
'...
Set fs = New FileSystemObject
'abre el archivo para "añadir"
Set ts = fs.OpenTextFile("C:\ejemplo.txt", ForAppending, False, TristateUseDefault)
'lo importante, te dará el número de lineas de un archivo de texto
Ts. Line
"Microsoft Scripting Runtime"
'Declara esto
Dim fs As FileSystemObject
Dim ts As TextStream
'...
Set fs = New FileSystemObject
'abre el archivo para "añadir"
Set ts = fs.OpenTextFile("C:\ejemplo.txt", ForAppending, False, TristateUseDefault)
'lo importante, te dará el número de lineas de un archivo de texto
Ts. Line
