如何获取某个指定U盘的盘符?

bydram 2006-12-13 11:14:10
我通过在注册表下面获取了所有U盘的一些相关信息,包括ID,生产厂家等,并可以获取某个ID的优盘是否已经插入。如:USBSTOR\Disk&Ven_Myson&Prod_CS8819A2-106__0&Rev_1.01\6&df1fad7&0即为Myson公司的,型号为CS8819A2-106,版本为1.01的优盘,它ID 为 6&df1fad7&0。并可以知道Linked参数里读取当前是否插入此优盘。

但现在需要知道如果系统同时有2至多个优盘插入,如何将各种不同型号(或者ID)的优盘与其盘符一一对应。。

希望各位大侠不吝赐教。
...全文
516 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
bydram 2006-12-18
  • 打赏
  • 举报
回复
谢谢,可是如果是两个相同厂家,型号的U盘,还是不能一一对应起来啊
bydram 2006-12-17
  • 打赏
  • 举报
回复
继续自己顶,顶到有人回复为止
gguueesstt 2006-12-17
  • 打赏
  • 举报
回复
Private Sub Form_Load()
On Error Resume Next
Dim objWMIService As Object
Dim colDevices As Object
Dim objDevice As Object

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDevices = objWMIService.execquery _
("Select * From Win32_DiskDrive")
For Each objDevice In colDevices
Debug.Print objDevice.Caption '磁盘名称
Debug.Print objDevice.Index '磁盘在系统中的 INDEX
Debug.Print objDevice.INTERFACETYPE '磁盘接口类型
Next objDevice


Set colDevices = objWMIService.execquery _
("Select * From Win32_LogicalDiskToPartition")
For Each objDevice In colDevices
Debug.Print objDevice.Antecedent
Debug.Print objDevice.Dependent
Next

End Sub
bydram 2006-12-16
  • 打赏
  • 举报
回复
自己再顶,真的没有人能够回答么
bydram 2006-12-14
  • 打赏
  • 举报
回复
无人回答?

1,486

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧