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
Google Bookmarks Digg Reddit del.icio.us Ma.gnolia Technorati Slashdot Yahoo My Web News2.ru БобрДобр.ru RUmarkz Ваау! Memori.ru rucity.com МоёМесто.ru Mister Wong

Оставить комментарий