Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Para poder saber la cantidad de lineas pone lo siguiente en un boton. Private Sub Command1_Click() Const ForReading = 1, ForWriting = 2 Dim fso, f, asa As Long Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\archivoaleer.txt", ForReading) Readalltextfile = f.ReadAll asa = f.Line MsgBox asa End Sub
Valora esta respuesta
0
Comentar
Listar colores para personalizar Fondo
Como comprobar la existencia de una letra y de ahi