Метод OpenTextFile

Открывает указанный файл и возвращает объект TextStream , который можно использовать для чтения, записи в файл или добавления к нему.

Синтаксис

object. OpenTextFile (filename, [ iomode, [ create, [ format ]]])

Синтаксис метода OpenTextFile состоит из следующих элементов.

Part	Описание
object	Обязательно. Всегда имя объекта FileSystemObject.
имя файла	Обязательно. Строковое выражение, определяющее файл, который будет открыт.
iomode	Необязательный параметр. Указывает режим ввода-вывода. Может соответствовать одной из трех констант: ForReading, ForWriting или ForAppending.
создать	Необязательный параметр. Значение типа Boolean, которое указывает, можно ли создать новый файл, если файл, указанный параметром filename, не существует. Значение True позволяет создать новый файл, а значение False — нет. По умолчанию используется значение False.
format	Необязательный параметр. Одно из трех значений Tristate, используемых, чтобы указать формат открытого файла. Если отсутствует, открытый файл имеет формат ASCII.

Параметры

Аргумент iomode может иметь любой из следующих параметров:

Константа	Значение	Описание
ForReading	1	Открытие файла только для чтения. Запись в этот файл невозможна.
ForWriting	2	Откройте файл только для записи. Используйте этот режим для замены существующего файла новыми данными. Невозможно выполнить чтение из этого файла.
ForAppending	8	Открытие файла и запись в конец файла. Невозможно выполнить чтение из этого файла.

Аргумент format может иметь одно из следующих значений.

Константа	Значение	Описание
TristateUseDefault	–2	Открывает файл с помощью системного значения по умолчанию.
TristateTrue	–1	Открывает файл в формате Юникод.
TristateFalse	0	Открывает файл в формате ASCII.

Замечания

В следующем коде показано использование метода OpenTextFile для открытия файла для добавления текста.

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, True, TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

См. также

• Объекты (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.