Private Declare Function SetVolumeLabelA Lib "kernel32" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeName As String) As Long

Public Function SetVolumeName(sDrive As String, n As String) As Boolean
Dim i As Long

i = SetVolumeLabelA(sDrive + ":\" & Chr$(0), n & Chr$(0))

SetVolumeName = IIf(i = 0, False, True)
End Function