21/03/2006, 15:50
|
 | | | Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Private Sub CMdLeer_Click()
Dim FF As Integer
Dim Linea As String
FF = FreeFile
Open "C:\TuArchivodetexto.txt" For Input As #FF
While Not EOF(FF)
Line Input #FF, Linea
MsgBox Linea
DoEvents
Wend
End Sub |