26/05/2005, 00:13
|
 | | | Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 20 años, 1 mes Puntos: 2 | |
| Este código iría en el botón "Ver los Datos del Archivo"
Dim a
Open app.Path & "\" & Combo1.Text For Output As #1
Close #1
For a = 0 To List1.ListCount - 1
Open app.Path & "\" & Combo1.Text For Append As #1
List1.ListIndex = a
Print #1, List1.Text
Close #1
Next a
List1.Clear
Open app.Path & "\" & Combo1.Text For Input As #1
Do While Not EOF(1)
Input #1, nombre
List1.AddItem nombre
Loop
Close #1
__________________
"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"
Yosvanis Cruz Alias VisualGuallabo
Ycruz |