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 (inherits002@yahoo.es)

 


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