Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

237 - FileSystemObject - Número de serie de un drive

Ejemplo que utiliza Fso con la colección Drives para recuperar el número de serie de un disco y otra información

Para el ejemplo se necesita incluir la referencia a Microsoft Scripting Runtime ( Fso )

En la rutina se debe enviar a la función Get_Numero_Serie, la letra de unidad para obtener la información. esta función , de tipo Long, retornará el número de serie

Descripción:

Se crean dos objetos, uno de tipo Scripting.FileSystemObject, y otro de tipo Drive.

El primero se utiliza para recuperar el Drive y asignarlo al segundo objeto usando el método GetDrive ( GetDrive requiere como parámetro la unidad ), una ves hecho esto, se puede acceder a las propiedades del mismo, en este caso se accede a la propiedad .SerialNumber, como muestra el gráfico:

vista de la lista de objetos que muestra vb para la colección Drive, con el numero de serie etc..

Nota: Además del número de serie, se pueden acceder por ejemplo a las siguientes propiedades:

AvailableSpace : espacio total de una unidad.
DriveType: tipo de Drive, Unidad de Cd, disco fijo, etc.. Esta retorna un número que representa a dicho tipo. Consultar los valores.
FileSystem: Sistema de archivos que utiliza dicha unidad o disco, por ejemplo NTFS, FAT32
VolumeName: Nombre del volumen o etiqueta
.. y algunas otras propiedades.

Código fuente en el formulario

'---------------------------------------------------------- 'Importante: Incluir la referencia a: _ Microsoft Scripting Runtime library (SCRRUN.DLL) '---------------------------------------------------------- Private Sub Form_Load() ' Enviar como parámetro la letra de unidad a averiguar MsgBox " Núumero de serie " & Get_Numero_Serie("c:\"), vbInformation End Sub Public Function Get_Numero_Serie(ByVal s_Drive As String) As Long Dim o_Fso As Scripting.FileSystemObject Dim o_Drive As Drive ' Creamos un nuevo objeto de tipo Scripting FileSystemObject Set o_Fso = New Scripting.FileSystemObject ' Si el Drive no es un vbnullstring If s_Drive <> "" Then ' Recuperamos el Drive para poder acceder _ en las siguientes lineas Set o_Drive = o_Fso.GetDrive(s_Drive) End If With o_Drive ' Si está disponible If .IsReady Then Get_Numero_Serie = Not .SerialNumber Else MsgBox " No se puede acceder a la unidad ", vbCritical Get_Numero_Serie = -1 End If End With ' Eliminamos los objetos instanciados Set o_Drive = Nothing Set o_Fso = Nothing End Function

Recursos vb 6.0 - Enlaces relacionados

Recursos vb.net - Enlaces relacionados

Obtener información de los drives del sistema en visual basic.NET

Buscar en Recursos vb