Microsoft Scripting Runtime en VB .NET 2003
Cargar un archivo de texto en un TextBox

Fecha: Octubre 9 de 2004
Autor: Luis Fernando Chavarriaga Cano ([email protected])

 


Microsoft Scripting Runtime es una referencia COM tipo ActiveX la cual es utilizada para el acceso a los archivos. Microsoft Scripting Runtime tiene entre otros dos m�dulos de clase que son:

- FileSystemObject

- TextStream

Para seleccionar estas librer�as es necesario ir a Proyecto > Agregar Referencia > Pesta�a COM, en la lista seleccionar Microsoft Scripting Runtime, clic en Seleccionar y luego Aceptar

Aqu� las definiciones de las dos clases mencionadas

FileSystemObject: Permite tener control sobre el sistema de archivos y carpetas del Sistema Operativo

TextStream: Clase proporcionada para hacer operaciones sobre un archivo espec�fico

Para esta sencilla aplicaci�n se utilizar� un TextBox llamado txtNameFile, otro TextBox llamado txtLoadFile, y un Button llamado btnLoad

El objetivo de la aplicaci�n es cargar es un TextBox (txtLoadFile) un archivo de texto ubicado en el disco local o en cualquier otra unidad, especificando el nombre del archivo en un TextBox (txtNameFile) al hacer clic en un Button (btnLoad). 

C�digo Fuente

 

Imports Scripting 'hacemos referencia al espacio de nombres Scripting
Public Class FormMain
    Inherits System.Windows.Forms.Form
    'Creamos un objeto FileSystemObject para tener control sobre los archivos del S.O
    Dim FSO As New FileSystemObject
    'Declaramos un TextStream para la manipulaci�n del archivo
    Dim TST As TextStream
    'Declaramos una variable tipo String para el nombre del archivo
    Dim NombreArchivo As String

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        'Capturamos el nombre del archivo digitado en el txtNameFile
        NombreArchivo = txtNameFile.Text
        'LLamamos al Sub CargarArchivo el cual se encarga de cargar el archivo
        'NombreArchivo es el archivo que deseamos cargar
        'txtLoadFile es el TextBox de destino en el cual se cargara finalmente el archivo seleccionado
        CargarArchivo(NombreArchivo, txtLoadFile)
    End Sub

    Public Sub CargarArchivo(ByVal FileName As String, ByVal Target As System.Windows.Forms.TextBox)
        'FileName es el archivo que deseamos cargar
        'Target es el TextBox de destino en el cual se cargara finalmente el archivo seleccionado
        Try
            FSO = New FileSystemObject
            'Preguntamos si el archivo existe
            If FSO.FileExists(FileName) Then
                'Si existe lo abrimos en Modo Lectura (IOMode.ForReading
                'El m�todo OpenTextFile me retorna un TextStream el cual lo establecemos al TST
                TST = FSO.OpenTextFile(FileName, IOMode.ForReading)
            Else
                'En caso de que el archivo no exista lo notificamos
                MsgBox("El archivo no existe", MsgBoxStyle.Information, "Informaci�n")
                txtNameFile.Clear()
                'El Exit Sub ocasionar� una salida prematura del Sub para evitar que el archivo intente
                'ser le�do aunque no exista, ocasionando un error en tiempo de ejecuci�n
                Exit Sub
            End If
            'Al TextBox de destino en la propiedad Text le asignamos todo el contenido del archivo
            Target.Text = TST.ReadAll
            'Cerramos el archivo
            TST.Close()
        Catch _error As Exception
            MsgBox(_error.Message.ToString, MsgBoxStyle.Information, "Informaci�n")
        End Try
    End Sub

End Class

 

Aqu� concluye esta peque�a aplicaci�n que puede servir como abrebocas para la manipulaci�n de archivos con Microsoft Scripting Runtime


ir al ndice

Fichero con el c�digo de ejemplo: luisf_MicrosoftScriptingRuntimeenVBNET2003.zip - Tama�o 7.68 KB