ник: час
Для записи использую функцию
Function Zapis_V_File(Put_File As String, STROKA As String)
Const ForReading = 1, ForWriting = 2, ForAppending = 3, TristateFalse = True
Dim fs
Dim a 'As Scripting.TextStream
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Put_File, ForWriting, TristateFalse)
a.Write STROKA
a.Close
Set fs = Nothing
End Function
|
Но каждый раз dcq предыдущие записи в текстовом файле стираются,
вопрос: дописывать возможно или сложно?
Я слыхал, что нужно переписывать весь файл с сохранением где-то уже имеющегося. текста с добавлением нового в конец........