11/09/2005, 13:25
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 76
Antigüedad: 18 años, 8 meses Puntos: 0 | |
| Aca tenes la solucion
Private Sub Form_Load()
On Error GoTo error
LISTAUNO$ = "c:\listauno.txt"
LISTADOS$ = "c:\listados.txt"
LISTATRES$ = "c:\listatres.txt"
Dim lstuno As String
Dim lstdos As String
Dim lsttres As String
On Error GoTo error
Open LISTAUNO$ For Input As #1
Open LISTADOS$ For Input As #2
Open LISTATRES$ For Input As #3
While EOF(1) = False Or EOF(2) = False Or EOF(3) = False
If EOF(1) = False Then
Input #1, lstuno$
Combo1.AddItem lstuno$
End If
If EOF(2) = False Then
Input #2, lstdos$
Combo2.AddItem lstdos$
End If
If EOF(3) = False Then
Input #3, lsttres$
Combo3.AddItem lsttres$
End If
DoEvents
Wend
Close #1
Close #2
Close #3
Exit Sub
error: MsgBox (error)
End Sub |