Access - GetVolumeInformation en XP

Option Compare Database

Option Explicit

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

Private Sub Form_Load()

  Dim cad1 As String * 256

    Dim cad2 As String * 256

    Dim numSerie As Long

    Dim longitud As Long

    Dim flag As Long

    Dim unidad

    unidad = "C:\"

    Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)

    MsgBox "Numero de Serie de la unidad " & unidad & " = " & numSerie

End Sub