Numéro de série d'un volume/lecteur/disque

Télécharger le projet
Commenter

Description

Mettre en paramètre de la fonction GetSerialOfDrive, le lecteur à analyser, exmple : pour récuperer le numéro de série du lecteur c, je ferais GetSerialOfDrive "c:\"...
Amusez vous bien

Source / Exemple : 


Option Explicit

' Publié par 69VobD3 (DivX-Paradise.net)

Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Public Function RecupIdHdd(sLecteur As String) As Long
    'Definit les variables locales
    Dim Serial As Long, VName As String, FSName As String
    'Creation des tampons
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    'Obtient les informations du volume
    GetVolumeInformation Left(sLecteur, 3), VName, 255, _
    Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    'Récupère le numéro de série
    RecupIdHdd = Trim(Str$(Serial))
End Function

Conclusion :


Merci à VBfrancais@YahooGroupes.fr....
Je ne suis pas l'auteur de ce code
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DivXPVobD)