Sets the volume label for a drive

' ----------------------------
' Constants & API Declarations
' ----------------------------

Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long

' ----------
' Function
' ----------

Public Function SetLabel(RootName As String, NewLabel As String)
       If RootName = "" Then
          Exit Function
       End If

       Call SetVolumeLabel(RootName,NewLabel)
End Function