VBA/VB获取硬盘序列号

最新推荐文章于 2019-06-22 08:37:50 发布

LucasLynn

最新推荐文章于 2019-06-22 08:37:50 发布

阅读量2.8k

点赞数

Microsoft Access VBA Programming 转载源码专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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

Function GetSerialNumber(sRoot As String) As Long
    Dim lSerialNum As Long
    Dim R As Long
    Dim sTemp1 As String, sTemp2 As String
    strLabel = String$(255, Chr$(0))     '磁盘卷标
    strType = String$(255, Chr$(0))     '文件系统类型一般为 FAT
    R = GetVolumeInformation(sRoot, strLabel, Len(strLabel), lSerialNum, 0, 0, strType, Len(strType))
    GetSerialNumber = lSerialNum
End Function