VB中如何编程获取硬盘的ID

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:33:10
就是想获取硬盘的ID(分本机和移动硬盘两种),不要太复杂的代码,我是新手哦。

Private Declare Function hardisk 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

Private Sub Form_Load()
On Error GoTo Err_Form_Load
Dim aa As Long
Dim VolName As String
Dim disnun As Long
Dim Maxlen As Long
Dim Sysflag As Long
Dim fsysName As String

aa = hardisk("c:\", VolName, 256, disnun, Maxlen, Sysflag, fsysName, 256)

MsgBox "c 硬盘序列号(16制): " & Hex(disnun)

Exit Sub
Err_Form_Load:
End Sub

用fso很简单