// Changer le nom de volume du disque désigné
//  sDisk [in] 		: Nom du disque
//  sNameLabel [in] : Nom du volume
// Renvoie vrai si le changement a été effectué
PROCEDURE SetVolumeLabel(sDisk,sNameLabel)

//	The SetVolumeLabel function sets the label of a file system volume.
//	
//	BOOL SetVolumeLabel(
//		LPCTSTR lpRootPathName,
//		LPCTSTR lpVolumeName
//	);

szRootPathName	est une chaîne ASCIIZ sur 255
szVolumeName	est une chaîne ASCIIZ sur 255 

SI sDisk~="" ALORS RENVOYER Faux
SI Droite(sDisk,1)<>"\" ALORS sDisk+="\"
szRootPathName=sDisk
szVolumeName=sNameLabel

RENVOYER API("Kernel32","SetVolumeLabelA",&szRootPathName,&szVolumeName)