---Soumis par Dev Ashish---

Lecture du nom du disque.

(Q) Comment puis-je obtenir le nom d'un disque (Volume Label)?

(A) La plupart des réponses, incluant la mienne, suggérait d'utiliser la fonction API GetVolumeInformationA.

Cependant, comme Paul van Goudoever   me le mentionnait en réponse à un de mes messages, si rien d'autre que le nom n'est cherché, utiliser plutôt la fonction Dir:

?Dir("C:",vbVolume)

Voilà!

Et quand à y être, oui, cette valeur change à chaque fois que votre disque est formatté. Il n'y a pas de moyen que je connaisse, en VBA, de retrouver le numéro de série du BIOS. Oui, utiliser cette technique comme protection contre le copiage créera de bons cauchemards à vos usagers.

<rant>

Je crois fermement que n'importe quelle scénario de protection anti copie génèrera des appels de support et conduira certains de vos clients à vous retourner votre logiciel, pour demeurer diplomatique, disons. Si vous devez prévenir l'anti-piratage, un dongle (bidule matériel s'accrochant au port série) est probablement la meilleure protection. Garder à l'esprit qu'un schéma de protection contre le copiage peut et sera craqué.

</rant>