(Resolvido) FileSystemObject - Gravando texto em ".tx

[Danleonhart]

Dúvida bem simples:

Usando o FileSystemObject, gravo em arquivo ".txt" o que for digitado em uma TextBox assim:

Public Sub GravaTXT()
Dim FSO As New Scripting.FileSystemObject
Dim TFile As Scripting.TextStream

Set TFile = FSO.OpenTextFile(App.Path & "\Data.txt", ForWriting, True)

TFile.Write txt_Nome.Text

TFile.Close
TFile = Nothing
End Sub

Agora como faço para quê, o que for escrito na TextBox seja "adicionado" no arquivo ".txt" ?

EX:

No txt já contém: Script Brasil.

Digitado na TextBox: Scripts de programação.

Fica assim no txt:

"Script Brasil

Scripts de programação."

Sempre na linha abaixo do que já está gravado.

:rolleyes:

Editado Março 5, 2011 por Danleonhart

[kuroi]

tenta abrir como ForAppending em vez de ForWriting.

[Danleonhart]

Poxa cara :unsure: tão simples...e eu já tinha colocado este "ForAppending" mas não tinha configurado o TextBox <_<

Ficou assim:

Public Sub GravarTXT()
Dim FSO As New Scripting.FileSystemObject
Dim TFile As Scripting.TextStream

If txt_1.Text = Empty Then
Exit Sub
ElseIf Not txt_1.Text = Empty Then

Set TFile = FSO.OpenTextFile(App.Path & "\Data.txt", ForAppending, True)

TFile.WriteLine txt_1.Text
TFile.Close
End If
txt_1.Text = Empty
End Sub

Obrigado mais uma vez !