Cómo leer el contenido de un archivo de texto con VBScript

Por contributor
Utiliza VBScript para abrir y leer un archivo de texto.

Cuando escribes un programa en VBScript, es posible que desees diseñar tu código para que este pueda abrir y leer el contenido de un archivo de texto en el disco duro del usuario. Esto se puede lograr mediante el uso de VBScript para acceder a Windows Script Host y utilizando el FileSystemObject. La mejor manera de aprender esta técnica de programación es a través de un ejemplo del mundo real.

Paso 1

Ejecuta el Bloc de notas y crea un archivo de texto. Escribe el siguiente mensaje en el archivo de texto:

Si recibes este mensaje, habrás completado con éxito esta programación de tareas.

Paso 2

Guarda el archivo que acabas de crear en la carpeta "C:\Temp" en tu disco duro y colócale el nombre "TextToRead.txt".

Paso 3

Crea un segundo documento nuevo de texto en el Bloc de notas.

Paso 4

Copia y pega el siguiente código en el archivo que creaste en el paso anterior:

Option Explicit

Const conForReading = 1

'Declare variables Dim objFSO, objReadFile, contents

'Set Objects Set objFSO = CreateObject("Scripting.FileSystemObject") Set objReadFile = objFSO.OpenTextFile("C:\Temp\TextToRead.txt", 1, False)

'Read file contents contents = objReadFile.ReadAll

'Close file objReadFile.close

'Display results wscript.echo contents

'Cleanup objects Set objFSO = Nothing Set objReadFile = Nothing

'Quit script WScript.Quit()

Paso 5

Haz clic en "Archivo" en la barra de herramientas del Bloc de notas y selecciona "Guardar" en el menú contextual. Guarda el archivo con tu código VBScript como "C:\Temp\ReadTextFile.vbs" y luego sal del Bloc de notas.

Paso 6

Ejecuta tu VBScript accediendo a la carpeta "C:\Temp" en tu disco duro y haz doble clic en el archivo "ReadTextFile.vbs". El mensaje que escribiste en el archivo de texto en el paso 1 aparecerá en una pequeña ventana emergente, lo que confirma que tu programa de VBScript ha logrado abrir y leer el archivo. Haz clic en "Aceptar".