很可能它会在“USB”下,或者可以使用下面的代码来找到它:
Dim Mq As New Management.ObjectQuery("WQL", "Select Caption,DeviceID,InterfaceType from Win32_DiskDrive ") ' you can include where InterfaceType='USB'
Dim scop As New ManagementScope("root\cimv2")
Dim MobSrchr As New ManagementObjectSearcher(scop, Mq)
Dim Disks As New List(Of String)
For Each mob As ManagementObject In MobSrchr.Get
Dim DrivInfo As String = Nothing
DrivInfo = "Caption : " + mob.Properties("Caption").Value + Environment.NewLine
DrivInfo += "Device ID : " + mob.Properties("DeviceID").Value + Environment.NewLine
DrivInfo += "InterfaceType : " + mob.Properties("InterfaceType").Value + Environment.NewLine
Disks.Add(DrivInfo)
Next