vb中如何得到usb设备名称

[VB_XP]

vb中如何得到usb设备名称

[gralei]

wmi

[贝隆]

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

Private Sub Command1_Click()
    Dim lpRootPathName As String
    Dim lSerialNum As Long '序列号
    Dim strLabel As String * 255 '磁盘卷标
    Dim strType As String * 255 '文件系统类型
    Dim i As Integer
On Error GoTo errSub
    lpRootPathName = Text1.Text  '此处输入你的磁盘序列号(格式为： C:\)
    Call GetVolumeInformation(lpRootPathName, strLabel, Len(strLabel), lSerialNum, 0, 0, strType, Len(strType))
    i = InStr(strLabel, Chr(0))
    strLabel = Left(strLabel, i - 1)
    i = InStr(strType, Chr(0))
    strType = Left(strType, i - 1)
    MsgBox lpRootPathName & "的磁盘序列号为:" & lSerialNum & Chr(10) & "磁盘卷标为:" & Trim(strLabel) & Chr(10) & "文件系统类型为:" & Trim(strType), vbInformation, "系统信息"
    Exit Sub
errSub:

End Sub

[hanvan]

读取注册表。。