Change Drive/Disk Label


Add 1 Command Button (named Command1) to your form.

Module Code

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

Form Code

Private Sub Command1_Click()
'replace the "d:\" below with the drive you want to change its label
'replace the "MyNewLabel" below with the drive new label
If SetVolumeLabel("d:\", "MyNewLabel") = 0 Then
MsgBox "An Error occured while trying to change drive label", vbCritical, "Error"
    End If
End Sub

Go Back