SerialNumber, propriété

Renvoie le numéro de série décimal utilisé pour identifier de manière unique un volume de disque.

object.SerialNumber

L'argument object représente toujours un objet Drive.

Notes

Vous pouvez utiliser la propriété SerialNumber pour vous assurer que le disque approprié est présent dans un lecteur à support amovible.

Le code suivant illustre l'emploi de la propriété SerialNumber :

Function ShowDriveInfo(drvpath)
   Dim fso, d, s, t
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
   Select Case d.DriveType
      Case 0: t = "Inconnu"
      Case 1: t = "Amovible"
      Case 2: t = "Fixe"
      Case 3: t = "Réseau"
      Case 4: t = "CD-ROM"
      Case 5: t = "Disque virtuel"
   End Select
   s = "Lecteur " & d.DriveLetter & ": - " & t
   s = s & "<BR>" & "SN: " & d.SerialNumber
   ShowDriveInfo = s
End Function

Voir aussi

AvailableSpace, propriété | DriveLetter, propriété | DriveType, propriété | FileSystem, propriété | FreeSpace, propriété | IsReady, propriété | Path, propriété | RootFolder, propriété | ShareName, propriété | TotalSize, propriété | VolumeName, propriété

Application: Drive, objet