SALVAR LISTBOX

POWERCOM 22/07/2011 18:06:13
#379771
tentei utilizar este codigo para salvar a listbox só que não funcionam o arquivo de texto fica em branco e salva em branco sem o conteúdo.

Private Sub Command1_Click()

CommonDialog1.Filter = [Ô]Arquivos Texto(*.txt)*.txt[Ô]
CommonDialog1.ShowSave
If CommonDialog1.FileName <> [Ô][Ô] Then
Open CommonDialog1.FileName For Output As #1
Print #1, List1.Text
Close #1
salvar = True
End If

End Sub

alguém poderia ajudar?
POWERCOM 22/07/2011 21:13:11
#379782
dúvida resolvida. tópico encerrado.
ROBIU 23/07/2011 07:19:15
#379793 
Private Sub Command1_Click()
    Dim i As Integer
    
    CommonDialog1.Filter = [Ô]Arquivos Texto(*.txt)*.txt[Ô]
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> [Ô][Ô] Then
    Open CommonDialog1.FileName For Output As #1
        For i = 0 To List1.ListCount - 1
            Print #1, List1.List(i)
        Next i
    Close #1
    salvar = True
    End If

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar