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