Změna jmenovky disku
Nejprve je nutné nadeklarovat API, která změní jmenovku disku:
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
A nyní si vytvoříme funkci, která pojmenuje disk:
Private Function ChangeVolumeLabel(sdrive as string, sNewName as string) as integer
'Příklad volání:
'Ret=ChangeVolumeLabel("C:\", "MyDrive_C")
ChangeVolumeLabel = SetVolumeLabel(sDrive, sNewName)
'Vrátí 0 pokud to
padne, 1 když se operace podaří.
End Function