Lire le numero de série d'un disque

Commenter

Contenu du snippet

Créer un nouveau projet.
Ajouter sur la feuille:
- un Bouton de commande (pour quitter)
- un Label
- une TextBox sous le label
Ajouter le code ci-dessous dans le code de "Form1".

Source / Exemple : 


Private Declare Function GetVolumeInformation Lib "kernel32.dll" _
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
'------------------------------------------------
Function NoSerieDisque(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Trucnull As Long
Dim Strnul As String
Res = GetVolumeInformation(strDrive, Strnul, _
Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
Me.Caption = strDrive
NoSerieDisque = SerialNum
End Function
'**********************
Private Sub Command1_Click()
    End
End Sub
'**********************
Private Sub Form_Load()
    Label1.Caption = "N° de série du disque dur"
    Text1.Text = NoSerieDisque("C:\")
End Sub

Conclusion :


Dans cet exemple, "C:\" est en dur, mais on peut passer n'importe quelle designation d'unité logique.

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 (cs_pepito)