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