\'Declaración de la función, sólo está en la API de 32 bits
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