Programación VB para reescribir código

Te daré uno. Simplemente agrega un botón al formulario, pero el tiempo no está calculado. ¡Puedes agregarlo tú mismo!

Importa System.IO

Forma de clase pública1

Subbotón privado1_Click(ByVal remitente como System.Object, ByVal y como System.EventArgs) Maneja el botón1.Click

Dim r As New StreamReader(Application.StartupPath amp; "\ssk.txt", System.Text.Encoding.Default) 'Declara el objeto de flujo de archivos y abre el archivo ssk.txt

Dim s As String

s = r.ReadToEnd 'Lee todo el contenido del archivo abierto en la variable S

r.Close() 'Cierra el objeto

'Comienza a obtener el número de líneas

Dim Linen As Integer

Dim d() As String

d = Split(s, vbCrLf)

Lino = UBound(d) 1

MessageBox.Show("Uno*** tiene:" y CStr(Linen) y "línea")

End Sub

End Class

Copie el archivo de texto ssk.txt para probarlo en la carpeta de depuración. ¿O modificar el código de ruta del archivo usted mismo?

VB 2010 pasó.