Реферат: FSO – тяжелая артиллерия VB6
Set fil = fso.GetFile("test1.txt")
Set ts = fil.OpenAsTextStream(ForWriting)
Добавление данных к файлу
Как только текстовый файл создан, Вы можете добавлять данные. Для этого необходимо:
Открыть текстовый файл для записи данных.
Записать данные.
Закрыть файл.
Чтобы открыть файл, Вы можете использовать любой из двух методов: метод OpenAsTextStream объекта File или метод OpenTextFile объекта FileSystemObject.
Чтобы записать данные в открытый текстовый файл, используйте методы Write или WriteLine объекта TextStream. Единственое различие между Write и WriteLine - то, что WriteLine добавляет символы newline к концу строки. Если Вы хотите добавлять newline к текстовому файлу, используйте метод WriteBlankLines.
Чтобы закрыть открытый файл, используйте метод Close объекта TextStream.
Sub Create_File()
Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:testfile.txt", True)
'Записьлинии
txtfile.Write ("This is a test. ")
'Запись линии с символом newline
txtfile.WriteLine("Testing 1, 2, 3.")
'Запись трех символов newline в файл
txtfile.WriteBlankLines(3)
txtfile.Close
End Sub
Чтениефайлов File System Objects
Чтобы читать данные из текстового файла, используйте методы Read, ReadLine или ReadAll объекта TextStream:
Чтение определенного числа символов из файла - Read
Чтение всей линии (но не, включая, символ newline) - ReadLine
Чтение всего содержания текстового файла - ReadAll
Если Вы используете метод Read или ReadLine, и Вы хотите перейти к специфической части данных, Вы можете использовать метод Skip или SkipLine. Полученный в результате использования этих методов текст может быть сохранен в символьной переменной и анализироваться Left, Right и Mid. Обратите внимание, что константа vbNewLine содержит символ или символы (в зависимости от операционной системы) чтобы продвинуть курсор к началу следующей линии (возврат каретки). Знайте, что концы некоторых символьных переменных могут иметь такие непечатаемые символы.
Sub Read_Files()