Как записать в конец файла
Вместо метода .CreateTextFile используйте приведенный здесь http://www.script-coding.com/WSH/FileSy … html#3.24.
]]>
Dim objFSO
'Объект необходимый для работы на файловом уровне
Set objFso = CreateObject("Scripting.FileSystemObject")
Dim TextStream
Set TextStream = objFso.CreateTextFile("C:\Test.txt")
TextStream.Write "Text" & vbCrLf
TextStream.Write "Text1" & vbCrLf
TextStream.Close
MsgBox "Готово!"