Problema con un ListBox. NO SE VUELCA EL CONTENIDO[Solucionado]

[Karcrack]

Tengo un problema, cuando escribo el codigo de abajo se supone que los elmentos que hay en la lista del form9 se deberian añadir al archivo de texto, pero no se hace, se queda vacio. Prove haciendo que envez de que se escrbiera me los dijera en un msgbox y si que lo hacia. No lo entiendo 
este es el code:

dim i
If abIert0 = "1" Then
For i = 0 To Form9.List1.ListCount
Open App.Path & "/x.txt" For Output As #1
Print #1, Form9.List1.List(i)
Close
Next
End If

Gracias.

[ranslsad]

El problema esta en esta linea:
Print #1, Form9.List1.List(i)
el .list es el que falla creo, toy probando haber como era xD.. pero no me acuerdo..
cuando lo aya encontrado te aviso..

Salu2

Ranslsad

[Hendrix]

substituye .list por .txt...

Un Saludo. 

[Jareth]

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount
Open "c:\log2.txt" For Append As #1
Print #1, , List1.List(i)
Close #1
Next
End Sub

Private Sub Form_Load()
Dim z As Integer
For z = 1 To 10
List1.AddItem (z)
Next
End Sub

Mira asi si funciona,no uses output porque sobreescribirá y solo tendrás en el texto el ultimo valor.
Indicas mal la ruta y usas mal print.
Espero que mi ejemplo te sirva.

[ranslsad]

Bueno ya veo que te an respondido, aun asi te dejo una informacion que encontre en la pagina de nuestro foro...

Código [Seleccionar] Expandir

Selección y eliminación de todos los elementos de un ListBox:

Insertar un ListBox y dos Botón en un nuevo proyecto. Poner la propiedad MultiSelect del ListBox
a "1 - Simple" y escriba el siguiente código:

Private Declare Function SendMessageLong Lib "user32" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
List1.AddItem "Texto 1"
List1.AddItem "Texto 2"
List1.AddItem "Texto 3"
List1.AddItem "Texto 4"
List1.AddItem "Texto 5"
List1.AddItem "Texto 6"
List1.AddItem "Texto 7"
End Sub

Private Sub Command1_Click()
'Seleccion de todo el contenido
Dim Resp As Long
Resp = SendMessageLong(List1.hwnd, &H185&, True, -1)
End Sub

Private Sub Command2_Click()
'Eliminacion de todos los elementos seleccionados
Dim Resp As Long
Resp = SendMessageLong(List1.hwnd, &H185&, False, -1)
End Sub

Haber si te sirve para alguna otra cosilla

Salu2

Ranslsad

[Hendrix]

Importante esto:

For i = 0 To List1.ListCount -1

Creo que sin ese -1 se desbordaba o algo, no se....

Un Saludo. 

[Karcrack]

MUXAS gracias a todos, ya lo he solucionado , cre que era lo que decia Kyubi lo del output.