Функция SetVolumeLabel

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

SetVolumeLabel устанавливает метку тома файловой системы. Новая метка тома не может содержать любые запрещенные символы

lpRootPathName

Путь корневого каталога диска, чтобы установить метку тома файловой системы. Этот путь должен включать конечную наклонную черту влево. Например, диск "C:\"

lpVolumeName

Новое название метки тома. Для удаления метки используйте нулевой указатель(vbNullString).

Пример

' Устанавливаем новую метку тома диска C: в "Rus_Project"
Dim retval As Long ' возвращаемое значение

' Устанавливаем новую метку тома
retval = SetVolumeLabel("C:\", "Rus_Project")

Смотри также

Категория