1,486
社区成员
发帖
与我相关
我的任务
分享如何获取某个指定U盘的盘符？
我通过在注册表下面获取了所有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）的优盘与其盘符一一对应。。
希望各位大侠不吝赐教。
但现在需要知道如果系统同时有2至多个优盘插入，如何将各种不同型号（或者ID）的优盘与其盘符一一对应。。
希望各位大侠不吝赐教。
...全文
请发表友善的回复…
发表回复
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
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
- 打赏
- 举报
无人回答？
