25/05/2005, 21:44
|
 | | | Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 20 años, 1 mes Puntos: 2 | |
| Este codigo me funciona perfectamente en uno de mis programas.
en este caso el Listbox se llama List1.
Dim a
Open "Direccion del archivo" For Output As #1
Close #1
For a = 0 To List1.ListCount - 1
Open "Direccion del archivo" 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 |