Microsoft Scripting Runtime en VB .NET 2003 Fecha: Octubre 9 de 2004
|
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 ScriptingPublic 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
Fichero con el código de ejemplo: luisf_MicrosoftScriptingRuntimeenVBNET2003.zip - Tamaño 7.68 KB