SALVAR CONTEUDO LISTBOX NO ARQUIVO TEXTO TXT

USUARIO.EXCLUIDOS 02/01/2005 11:54:24
#58143 Resposta escolhida

Private Sub Command1_Click()
Open "c:    este.txt" For Output As #1 'for output apagará todos os dados anteriormente gravados em teste.txt
For qqu = 0 To List1.ListCount - 1
List1.ListIndex = qqu
Print #1, List1.Text
Next
Close #1
End Sub

Private Sub Form_Load()
For qqu = 0 To 10
List1.AddItem CStr(qqu)
Next
End Sub

USUARIO.EXCLUIDOS 02/01/2005 20:29:27
#58212

Valeu Max, tu tenha a manha mesmo, cara eu tentei de todas as formar e nao consegui valeu mesmo!

Abraços