Obtén información del sistema operativo y las unidades con el control SysInfo y FileSystemObject

Al obtener información esencial sobre tus sistemas, el control SysInfo y FileSystemObject proporcionan todo lo necesario para realizar el trabajo. El control SysInfo te permite obtener información importante del sistema operativo sin necesidad de utilizar llamadas a API. FileSystemObject proporciona acceso al sistema de archivos de la computadora para que puedas conocer las unidades y archivos disponibles, así como crear, mover y eliminar archivos o carpetas. En este artículo, te explicaré cómo obtener información del sistema operativo y las unidades utilizando el control SysInfo y FileSystemObject en tus aplicaciones VB.

Control SysInfo

Puedes utilizar el control SysInfo para determinar el tipo y versión del sistema operativo, obtener cambios en el tamaño y resolución del monitor, detectar dispositivos plug-and-play y conocer el estado de batería y alimentación del monitor. El control también permite responder a algunos eventos generados por el sistema. Para utilizar el control, debes colocarlo en un formulario y configurar sus propiedades.

FileSystemObject

FileSystemObject es útil cuando deseas determinar si un archivo o directorio existe en el sistema. También puedes utilizarlo para crear, mover y eliminar archivos. Puedes utilizar su propiedad Drives para obtener información sobre las unidades disponibles. Para utilizar FileSystemObject, debes dirigirte a Referencias de proyecto y seleccionar la opción Microsoft Scripting Runtime.

¿Cómo funciona esto?

Vamos a ver un proyecto de ejemplo para entender qué puedes hacer con el control SysInfo y FileSystemObject. El proyecto utiliza un control SysInfo para mostrar la plataforma y versión del sistema operativo en un formulario, y utiliza FileSystemObject para mostrar las unidades disponibles en un cuadro combinado y proporcionar información sobre cada una cuando se selecciona. El código de este proyecto se muestra a continuación:

En la sección de declaración general, creamos una referencia a FileSystemObject y Drives en el sistema para utilizarlos más adelante. En el evento Form Load, creamos un bucle para recorrer todas las unidades disponibles (Drvs) que obtenemos de la propiedad Drives de FileSystemObject (Fs) y comprobamos si una unidad en particular es una unidad de red. Si lo es, obtenemos el nombre compartido de la unidad; de lo contrario, obtenemos el nombre de volumen de la unidad. Luego, añadimos todos los nombres de las unidades disponibles al cuadro combinado CboDrives. También determinamos la plataforma y versión del sistema operativo a partir de la propiedad OSPlatform del control SysInfo (SysInfo1) y lo asignamos a la propiedad Caption del control lblOS para mostrar esta información en la parte superior del formulario.

En el evento de clic del cuadro combinado CboDrives, comenzamos eliminando la información de todos los controles TextBox en el formulario llamando a la subrutina CleanAll. En la subrutina CleanAll, creamos un bucle para recorrer todos los controles en el formulario y comprobamos su tipo. Si el tipo del control es TextBox, establecemos su propiedad Text como una cadena vacía. Después de limpiar todos los controles TextBox en el formulario, determinamos qué unidad está actualmente seleccionada y obtenemos información sobre esa unidad llamando a la subrutina GetDriveInfo y pasando la unidad seleccionada actualmente en la instrucción Call GetDriveInfo(CurrDrv).

Cómo utilizar un Wiki para la documentación de proyectos

En GetDriveInfo, determinamos el tipo de la unidad pasada (Desconocido, Extraíble, Fijo, Remoto, CDRom o RamDisk) utilizando la propiedad DriveType de un objeto CurrDrv. Colocamos la información sobre la unidad en el formulario asignando los detalles específicos de la unidad a los controles TextBox correspondientes (TxtDriveType, TxtSerialNumber, TxtAvailableSpace, TxtFileSystem, TxtFreeSpace, TxtTotalSize). En la rutina de manejo de errores, mostramos información de error en caso de que ocurra un error, a menos que sea el número de error 71 (Error de disco no listo), lo cual significa que no hay un disco en la unidad extraíble, generalmente la unidad A:. Si no hay un disco en la unidad especificada, no queremos alertar a nuestros usuarios sobre el error. Por lo tanto, utilizamos la declaración Resume Next para omitir el error y continuar con el resto del código.

El código en acción

Cuando ejecutes el proyecto, deberías ver la información del sistema operativo en la parte superior de la pantalla y un cuadro combinado con todas las unidades disponibles en el centro. Al hacer clic en el cuadro combinado para seleccionar una unidad diferente, deberías ver información sobre esa unidad.

En Newsmatic nos especializamos en tecnología de vanguardia, contamos con los artículos mas novedosos sobre Desarrollo, allí encontraras muchos artículos similares a Obtén información del sistema operativo y las unidades con el control SysInfo y FileSystemObject , tenemos lo ultimo en tecnología 2023.