
17/08/2005, 06:20
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años Puntos: 839 | |
Pues se hace así:
Código:
Open "C:/MyFile.txt" For Append As #1
For Writting = 0 To List1.ListCount - 1
Print #1, List1.List(Writting)
Print #1, "-----------------------------"
Next Writting
Close #1
|