Salvando Todos Os Text Usando Commondialog

[Pilantra]

Olá

Eu sei como se faz pra salvar com o commondialog em .txt somente um textbox, que no caso aquele que fica como multiline, mas eu tentei fazer pra salvar com todos os text e não da certo! alguém poderia me passar uma rotina pra isso?!

Obrigado

Abraços

Pilantra :ph34r:

[Graymalkin]

O quê exatamente não deu certo?

Abraços,

Graymalkin

[William Rodrigues]

Iæ brother....

Li a sua dúvida cara e vou passar-lhe um script que resolverá seu pequeno problema cara....

Vamos lá...

Inicie um novo projeto no VB 6.0 e insira 3(três) TXT no seu FORM. Se quiser pode alterar a propriedades de uma delas para MULTILINE=TRUE pra que nosso exemplo fique mais veridico.

Após ter inserido as 3(três) TXT coloque o componente Commom Dialog (Project/Components..Ctrl+T) e insira-o em seu FORM, coloque também um botão com o Caption de Salvar. Altere as propriedades do nosso componente. Veja:

DefaultExt=TXT

FilterIndex=755

Filter=Arquivos de textos(*.txt)

Ative também CancelError na caixa de propriedades do nosso componente.

Agora vamos ao nosso pequeno código cara:

  Citar

Dim txt1 as String

Dim txt2 as String

Dim txt3 as String

txt1 = Text1.Text

txt2 = Text2.Text

txt3 = Text3.Text

On Error Resume Next

Me.CMDialog.ShowSave

Open Me.CMDialog.Filename For Output As #1

Print #1, txt1, txt2, txt3

Close #1

Pronto brother....

Agora o seu Commom Dialog salvar as 3(três) ou mais TXT´S que você quiser cara.

Ah, a TXT sendo ou não com a propriedade MULTILINE=TRUE.

Espero que tenha entendido e que tenha te ajudado cara...

Abraços

Até mais