Sub Example()
Dim myFSO As Object, myFile As Object
Dim fullName As String
Const forWriting = 2, forAppending = 8
fullName = "c:\temp.txt"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myFile = myFSO.OpenTextFile(fullName, forAppending, False)
myFile.WriteLine (Time)
myFile.Close
MsgBox "Дописали время."
End Sub
Дозапись в файл.
Как сделать так чтобы файл не перезаписывался а шло обычное добавление в конец файла ?
Цитата:
Originally posted by doomer
Как сделать так чтобы файл не перезаписывался а шло обычное добавление в конец файла ?
Как сделать так чтобы файл не перезаписывался а шло обычное добавление в конец файла ?
Вот пример:
Код:
Open "test.txt" For Append As #1
Print #1, "Helo!"
Close #1
Print #1, "Helo!"
Close #1