Método OpenAsTextStream

Abre un archivo especificado y devuelve un objeto TextStream que se puede utilizar para leer, escribir o agregar en el archivo.

objeto.OpenAsTextStream([modoES, [formato]])

Argumentos

objeto: Requerido. Siempre debe ser el nombre de un objeto File.
modoES: Opcional. Indica modo de entrada y salida. Puede ser una de tres constantes: ForReading, ForWriting o ForAppending.
formato: Opcional. Uno de tres valores Tristate utilizados para indicar el formato del archivo abierto. Si se omite, el archivo se abre como ASCII.

Valores

El argumento modoES puede tener cualquiera de los siguientes valores:

Constante	Valor	Descripción
ForReading	1	Abrir un archivo sólo para lectura. No puede escribir en este archivo.
ForWriting	2	Abrir un archivo para escritura. Si existe un archivo con el mismo nombre, se sobreescribe su contenido anterior.
ForAppending	8	Abrir un archivo y escribir al final del archivo.

El argumento format puede tener alguno de los siguientes valores:

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

Comentarios

El método OpenAsTextStream proporciona la misma funcionalidad que el método OpenTextFile de FileSystemObject. Además, el método OpenAsTextStream se puede utilizar para escribir en un archivo.

El siguiente código muestra el uso del método OpenAsTextStream:

[JScript]
function ProbarTextStream( )
{
   var fso, f, ts, s;
   var ForReading = 1, ForWriting = 2, ForAppending = 8;
   var TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fso.CreateTextFile( "prueba1.txt" );        // Crear un archivo.
   f = fso.GetFile("prueba1.txt");
   ts = f.OpenAsTextStream(ForWriting, TristateUseDefault);
   ts.Write( "Hola mundo" );
   ts.Close( );
   ts = f.OpenAsTextStream(ForReading, TristateUseDefault);
   s = ts.ReadLine( );
   ts.Close( );
   return(s);
}
[VBScript]
Function PruebaDeTextStream
   Const ParaLectura = 1, ParaEscritura = 2, ParaAnexar = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim fso, f, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CreateTextFile "prueba1.txt"   ' Crea un archivo.
   Set f = fso.GetFile("prueba1.txt")
   Set ts = f.OpenAsTextStream(ParaEscritura, TristateUseDefault)
   ts.Write "¡Hola mundo"
   ts.Close
   Set ts = f.OpenAsTextStream(ParaLectura, TristateUseDefault)
   PruebaDeTextStream = ts.ReadLine
   ts.Close
End Function

Consulte también

Método Copy | Método CreateTextFile | Método Delete | Método Move | Método OpenTextFile
Se aplica a: Objeto File