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