Como en el anterior artículo que escribí de Microsoft Scripting Runtime en VB .NET 2003 Cargar un archivo de texto en un TextBox aquí también utilizaremos la referencia COM: Microsoft Scripting Runtime para insertar texto escrito en una aplicación de consola VB.NET directamente en un archivo de texto.

Conceptos Clave

Método OpenTextFile: Recibe dos parámetros, el primero es un String con el nombre y ubicación del archivo en el cual deseamos guardar lo que digitamos; el segundo parámetro recibe el modo en el cual se abrirá el archivo, para este caso tenemos tres posibilidades

IOMode.ForAppending: Se utiliza para anexar texto al archivo sin que el contenido que ya esté en él se borre

IOMode.ForReading: Se utiliza para abrir el archivo de modo que solo sea para lectura

IOMode.ForWriting: Se utiliza para escribir sobre el archivo borrando el contenido que tenga cada vez que se vaya a escribir en él

Código Fuente

Option Explicit On

Imports Scripting

Module ModulePrincipal

    Private FSO As New FileSystemObject

    Private TST As TextStream

    Private File As String

    'la variable file contiene la ubicación y nombre del archivo en el cual se guardaran los datos

Sub Main()

    Console.WriteLine("Comenzando la aplicación")

    InsertText()

End Sub

Friend Sub InsertText()

    Dim contenido As String

    FSO = New FileSystemObject

    Console.WriteLine("DIGITE EL TEXTO QUE DESEA GUARDAR Y PRESIONE ENTER PARA TERMINAR")

    'en la variable contenido guardamos lo que se escrito en pantalla

    contenido = Console.ReadLine

    'preguntamos si existe el archivo

        If FSO.FileExists(File) Then

                     'si existe lo abrimos

        'el método OpenTextFile recibe dos parámetros

        'el archivo

                    'y el modo en el que va a ser abierto

        TST = FSO.OpenTextFile(File, IOMode.ForAppending)

    Else

        Console.WriteLine("El archivo al cual desea guardar los datos no existe")

        'salida prematura del procedimiento para evitar que intente leer aunque no exista el archivo

        Exit Sub

    End If

    'escribimos en el archivo, todo lo que escribimos por pantalla

    TST.WriteLine(contenido)

    'cerramos el archivo

    TST.Close()

End Sub

End Module

Espero haya sido de gran ayuda, cualquier inquietud pueden enviarla al correo.

hasta luego.

Observación: Si tiene problemas al importar la referencia indicada, diríjase a la parte I de este artículo aquí:

Colabora .NET- Microsoft Scripting Runtime en VB NET 2003

Fichero con el código de ejemplo: microsoftscriptingruntime2guardartexto.zip - Tamaño 5 KB