Gerar arquivo .txt

[Antenor 0]

Caros,

 

Alguém tem algum conteúdo ou algum link que poderia passar falando sobre gerar arquivo .txt no VB6?

 

Obrigado

[Claudio Neto 3]

Olá Antenor.

 

Você pode fazer de duas formas (pelo menos), usando a biblioteca MIcrosoft Scripting Runtime ou por API do windows.

 

Para o primeiro caso, tenho um exemplo:

Dim fso As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
'
Set fso = New Scripting.FileSystemObject
Set ts = fso.CreateTextFile(App.Path & "\teste.txt", ForWriting, True)
	
ts.WriteLine "Destinatario = " & txtDestinatario.Text
ts.WriteLine "Endereco =  " & txtEndereco.Text
ts.WriteLine "Numero =  " & txtNumero.Text
ts.WriteLine "Complemento = " & txtComplemento.Text

ts.Close

Para o segundo caso, dê uma olhada nesse tópico

 

Veja qual sua necessidade e qual solução melhor se encaixa.

 

Abraços.

[Antenor 0]

Muito obrigado pela dica, infelizmente ainda não consegui...

 

[]´s

 

Olá Antenor.

 

Você pode fazer de duas formas (pelo menos), usando a biblioteca MIcrosoft Scripting Runtime ou por API do windows.

 

Para o primeiro caso, tenho um exemplo:

Dim fso As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
'
Set fso = New Scripting.FileSystemObject
Set ts = fso.CreateTextFile(App.Path & "\teste.txt", ForWriting, True)
	
ts.WriteLine "Destinatario = " & txtDestinatario.Text
ts.WriteLine "Endereco =  " & txtEndereco.Text
ts.WriteLine "Numero =  " & txtNumero.Text
ts.WriteLine "Complemento = " & txtComplemento.Text

ts.Close

Para o segundo caso, dê uma olhada nesse tópico

 

Veja qual sua necessidade e qual solução melhor se encaixa.

 

Abraços.

[Claudio Neto 3]

Por qual modo você tentou?

 

O que aconteceu que não deu certo?

 

Poste a parte do seu código que construiu