Access Excel VBA通过API修改硬盘卷标(Disk Label)

Access Excel VBA通过API修改硬盘卷标(Disk Label) 俗称硬盘标签 或硬盘别名--Change the Drive Volume Label

Option Explicit

Private Declare Function SetVolumeLabel Lib "kernel32" Alias _
   "SetVolumeLabelA" (ByVal lpRootPathName As String, _
   ByVal lpVolumeName As String) As Long
 
Public Function gf_ChangeDiskLabel(strDriver As String, strNewDriveLabel As String) As Boolean
 
Dim lngRet As Long  
 
On Error Resume Next
lngRet = SetVolumeLabel(strDriver , strNewDriveLabel ) 'office-cn.net ChangeDiskLabel = (lngRet <> 0)
    
End Function

'使用方法

'ChangeDiskLabel("F:", "Office中国数据盘")

vb.net方法

        Dim int As Integer = 0
        For Each di As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
            Try
                di.VolumeLabel = "Test" & int.ToString
                int += 1
            Catch ex As Exception
 
            End Try
        Next