vb 获取u盘名称

如题~~..
顺便可以的话.说一下怎么弹出u盘..直接弹出..不要再叫我百度了..资源我都翻到最后一页都没有一个好方法..

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
Private Sub Command1_Click()
Dim lpRootPathName As String
Dim strLabel As String * 255 '磁盘卷标
Dim strType As String * 255 '文件系统类型

lpRootPathName = "h:\"
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))
MsgBox "磁盘卷标为:" & Trim(strLabel)
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息