OpenTextFile (método)

Abre un archivo especificado y devuelve un objeto TextStream que se puede usar para leer, escribir en o anexar al archivo.

Sintaxis

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

La sintaxis del método OpenTextFile consta de las partes siguientes:

Parte	Descripción
object	Obligatorio. Siempre es el nombre de un Objeto FileSystemObject.
Nombre	Obligatorio. Cadena de expresión que identifica al archivo que se va a abrir.
iomode	Opcional. Indica el modo de entrada/salida. Puede ser una de estas tres constantes: ForReading, ForWriting o ForAppending.
crear	Opcional. Valor Boolean que indica si un archivo nuevo se puede crear cuando la parte filename especificada no existe. El valor es True si se crea un archivo nuevo y False si no se crea. El valor predeterminado es False.
format	Opcional. Uno de tres valores Tristate usados para indicar el formato del archivo abierto. Si se omite, el archivo se abre como ASCII.

Configuración

El argumento iomode puede tener la siguiente configuración:

Constante	Valor	Descripción
ForReading	1	Abrir un archivo solamente para su lectura. No puede escribir en este archivo.
ForWriting	2	Abra un archivo solo para escribir. Use este modo para reemplazar un archivo existente por nuevos datos. No se puede leer de este archivo.
ForAppending	8	Abrir un archivo y escribir en la parte final del archivo. No se puede leer de este archivo.

El argumento format puede tener cualquiera de los valores siguientes:

Constante	Valor	Descripción
TristateUseDefault	-2	Abre el archivo con el valor predeterminado del sistema.
TristateTrue	-1	Abre el archivo como Unicode.
TristateFalse	0	Abre el archivo como ASCII.

Comentarios

El código siguiente ilustra el uso del método OpenTextFile para abrir un archivo y anexarle texto:

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

Vea también

• Objetos (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.