N° de série d'un disque

Réponse acceptée !
Ajoute la référence Microsoft Scripting Runtime puis:

Dim fso As FileSystemObject
Dim lect As Drive
Set fso = New FileSystemObject
For Each lect In fso.Drives
    If lect.IsReady Then
        MsgBox Hex(lect.SerialNumber)
    End If
Next

Réponse acceptée !
salut,
API GetVolumeInformation
PCPT [AFCK]

Réponse acceptée !
Ce que tu vois dans Informations System n'est pas le nro de série des disques mais le nro attribué lors du formatage d'une partition.
Comme te le dit pcpt, utilise GetVolumeInformation qui sera bien plus rapide et consommera nettement moins de ressources que cette calamité de FSO.

ciao...
[ Lien ]
BruNews, MVP VC++

Réponse acceptée !
les MP ne sont pas faits pour donner suite au forum....
surtout si tu valides déjà ici les autres réponses, c'est que le problème est résolu, non?
bref.

à ta demande, en VB6

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 
'
'
Private Sub Form_Load() 
    'URL: http://www.allapi.net/
    Dim Serial As Long, VName As String, FSName As String 

    'Create buffers
    VName = String$(255, Chr$(0)) 
    FSName = String$(255, Chr$(0)) 

    'Get the volume information
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255 

    'Strip the extra chr$(0)'s
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1) 
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1) 

    MsgBox "Nom de C:\ : " & VName & vbCrLf & "Partition : " & FSName & vbCrLf & _ 
           "N° série : " & Trim(Str$(Serial)) 

    Unload Me 
End Sub 
 

Coloration syntaxique automatique [AFCK]
       
PCPT  [AFCK]