grevelo

Buenas tardes... En este código: Private Sub Command1_Click() Dim Linea As String Open "C:\Documents and Settings\EPS\Mis documentos\US042009.txt" For Input As #1 Do Until EOF(1) Line Input #1, Linea List1.AddItem Linea Loop Close #1 End Sub Cambio...

Tengo el siguiente código para importar un txt: Private Sub Command1_Click() Open "C:\Documents and Settings\EPS\Mis documentos\US042009.txt" For Input As #1 Dim Linea As String Do Until EOF(1) Line Input #1, Linea Text1.Text = Text1.Text & " " &...