26/05/2005, 00:35
|
 | | | Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 20 años, 1 mes Puntos: 2 | |
| es la que te puse al principio:
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
__________________
"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 |