21
Сентябрь
2008
Как изменить название метки диска
Как изменить название метки диска
Option Explicit
Private Declare Function SetVolumeLabel _
Lib "kernel32" Alias "SetVolumeLabelA" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeName As String) As Long
Private Sub Command1_Click()
If SetVolumeLabel("d:\", "Master_BEGan") = 0 Then
MsgBox "Ошибка", vbCritical, "Траблы"
End If
End Sub