SerialNumber (Propiedad)

Visual Basic VBLR

SerialNumber (Propiedad)

           

Descripción

Devuelve el número de serie decimal que se utiliza para identificar de forma única un volumen de disco.

Sintaxis

objeto.SerialNumber

El objeto es siempre un objeto Drive.

Comentarios

Puede utilizar la propiedad SerialNumber para asegurarse que se introduce el disco correcto en una unidad con medios separables.

El código siguiente demuestra la utilización de la propiedad SerialNumber:

Sub ShowDriveInfo(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    Select Case d.DriveType
        Case 0: t = "Desconocido"
        Case 1: t = "Separable"
        Case 2: t = "Fijo"
        Case 3: t = "Red"
        Case 4: t = "CD-ROM"
        Case 5: t = "Disco RAM "
    End Select
    s = "Unidad " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "NS: " & d.SerialNumber
    MsgBox s
End Sub