Inserir dados em txt já existente

[preda 0]

Como que faz para inserir texto em um arquivo .txt já existente ?

 

olha o que fiz, e ele diz bad file mode.

 

If FSO.FileExists(App.Path & "\Esp_" & Format(Now, "dd_mm_yyyy") & ".txt") = True Then	Set Esp = FSO.OpenTextFile(App.Path & "\Esp_" & Format(Now, "dd_mm_yyyy") & ".txt")Else	Set Esp = FSO.CreateTextFile(App.Path & "\Esp_" & Format(Now, "dd_mm_yyyy") & ".txt")End If

e quando chega na função que insere, ele manda uma msgox

"Bad file Mode"

 

q q tem de errado ?

[Luizgrs 0]

Você tem quer abrir o arquivo em modo "ForAppending" assim:

fso.OpenTextFile(arquivo,ForAppending)

http://msdn2.microsoft.com/en-us/library/314cz14s.aspx