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