Afficher le nom du chemin complet du DD

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
Function getDDlabel(strDD As String) As String
  Dim Serial As Long
  Dim VName As String
  Dim FSName As String

  VName = String$(255, Chr$(0))
  FSName = String$(255, Chr$(0))
  GetVolumeInformation strDD, VName, 255, Serial, 0, 0, FSName, 255
  VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)

  getDDlabel = VName
End Function

Sub test()
  Dim lbl As String
  Dim DD As String
  Dim Rep as string

  'Choix du DD à regarder
   DD = "H:"

  'On récupère ses infos
   lbl = getDDlabel(DD)


   Rep =  lbl & " (" & DD & ")"
   Msgbox Rep

End Sub