Compartir a través de

SerialNumber (propiedad)

  • Artículo

Devuelve el número de serie decimal que se usa para identificar exclusivamente un volumen de disco.

Sintaxis

objeto . SerialNumber

El objeto siempre es un objeto Drive .

Comentarios

Use la propiedad SerialNumber para asegurarse de que el disco correcto se inserta en una unidad con medios extraíbles.

En el código siguiente se muestra el uso 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 = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
    MsgBox s
End Sub

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.