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
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.