Добавление строки в конец текстового файла для существующего файла

Question

Я новичок в скрипте vba, я пытаюсь добавить строку в существующий файл. Но его заменяя код старого файла, есть много способов в Интернете, но он не смог его успешно выполнить.

заранее спасибо за любую помощь по этому коду

Код является:

Sub AddData() 
    Dim fso As FileSystemObject 
    Set fso = New FileSystemObject 
    Dim stream As TextStream 
    Set stream = fso.CreateTextFile("C:\itscodes.txt", ForAppending) 
    stream.Write ",sdfThis line uses the Write method53535." 
    stream.Close 
End Sub 

Answer 1

Это потому, что вы используете CreateTextFile, который создает новый текстовый файл, переписав любой файл на тот же путь.

Использовать вместо OpenTextFile.