Archivos

[Javi 777]

Bueno, aquí está la codificación del botón "Ver los Datos del Archivo":

Private Sub Command1_Click()
Rem botón de Ver los Datos del Archivo.
Dim nombre As String


List1.Clear

If Combo1.Text = "software.txt" Then
Open Combo1.Text For Input As #1

Do While Not EOF(1)

Input #1, nombre
List1.AddItem nombre
Loop
Close #1
End If

If Combo1.Text = "hardware.txt" Then
Open Combo1.Text For Input As #2

Do While Not EOF(2)

Input #2, nombre
List1.AddItem nombre
Loop
Close #2
End If

If Combo1.Text = "accesorios.txt" Then
Open Combo1.Text For Input As #3

Do While Not EOF(3)

Input #3, nombre
List1.AddItem nombre
Loop
Close #3
End If
End Sub