设置磁盘卷标和获取驱动器类型的API

作者:枕善居主 / 查看次数: 6374 / 评论: 0

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

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
    设置磁盘卷标
    SetVolumeLabel "C:\", "NHGames"
    '获取驱动器类型
    Me.Caption = GetDriveType("C:\")
    'Name The Drives

    If Me.Caption = "0" Then
        Me.Caption = "DRIVE_UNKNOWN"
    End If

    If Me.Caption = "1" Then
        Me.Caption = "DRIVE_ABSENT"
    End If

    If Me.Caption = "2" Then
        Me.Caption = "DRIVE_REMOVABLE"
    End If

    If Me.Caption = "3" Then
        Me.Caption = "DRIVE_FIXED"
    End If

    If Me.Caption = "4" Then
        Me.Caption = "DRIVE_REMOTE"
    End If

    If Me.Caption = "5" Then
        Me.Caption = "DRIVE_CDROM"
    End If

    If Me.Caption = "6" Then
        Me.Caption = "DRIVE_RAMDISK"
    End If
End Sub