取得磁碟机之Volumn及Serial Number

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【取得磁碟机之Volumn及Serial Number】，下面是详细的分享！

取得磁碟机之Volumn及Serial Number

以下为引用的内容：

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Function GetVolumn(X As String) As String
    If Len(X) < 3 Then
        X=Left(X, 1) & ":\"
    Else
        X=Left(X, 3)
    End If
    Dim nRet As Long, VolName As String, VolSN As Long, MaxCompLen As Long
    Dim VolFlags As Long, VolFileSys As String
    VolName=Space$(256)
    VolFileSys=Space$(256)
    nRet=GetVolumeInformation(X, VolName, Len(VolName), _
            VolSN, MaxCompLen, VolFlags, _
            VolFileSys, Len(VolFileSys))
    If nRet=1 Then
        GetVolumn=VolName
    Else
        GetVolumn=""
    End If
End Function

Function GetNumber(X As String) As String
    If Len(X) < 3 Then
        X=Left(X, 1) & ":\"
    Else
        X=Left(X, 3)
    End If
    Dim nRet As Long, VolName As String, VolSN As Long, MaxCompLen As Long
    Dim VolFlags As Long, VolFileSys As String
    VolName=Space$(256)
    VolFileSys=Space$(256)
    nRet=GetVolumeInformation(X, VolName, Len(VolName), _
            VolSN, MaxCompLen, VolFlags, _
            VolFileSys, Len(VolFileSys))
    If nRet=1 Then
        GetNumber=VolSN
    Else
        GetVolumn=""
    End If
End Function

以上所分享的是关于取得磁碟机之Volumn及Serial Number，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：电脑注册表改动，系统出现故障

　　答：只要安全模式启动后一切注册表问题恢复……………… 该内存不能read 或written数值 叙述 0 0x0000 作业完成。 1 0x0001 不正确的函数。 2 0x0002 系统找不到... >>详细

　　相关问题：“0x10007cab”指令引用的“0x0000000c”内存。该内存...

　　答：请将 %2 (volume serial number: %3) 插入磁碟机 %1。 36 0x0024 开启的分享档案数量太多。 38 0x0026 到达档案结尾。 39 0x0027 磁碟已满。 50 0x0032 ... >>详细

　　相关问题：0x77c12a16指令引用的0x00000002内存,该内存不能为...

　　答：34 0x0022 磁碟机的磁片不正确。 请将 %2 (volume serial number: %3) ...获取采纳 使用财富值 玩法介绍 知道商城 知道团队 行家认证 高质量问答 投诉建议... >>详细