如果是U盘，想获取某个U盘的某个文件的值，可以用下面的代码获取U盘的盘符
Dim s As String = "USB*"
Dim USBDevices, USBDevice, USBDiskPartitions, USBDiskPartition, LogicalUSBDisks, LogicalUSBDisk , objWMIService As Object
objWMIService = GetObject("winmgmts:\\.\root\cimv2")
USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType='USB'")
For Each USBDevice In USBDevices
If USBDevice.PNPDeviceID Like s Then
USBDiskPartitions = objWMIService.execquery("Associators of {Win32_DiskDrive.DeviceID='" & USBDevice.DeviceId & "'} where AssocClass = Win32_DiskDriveToDiskPartition")
For Each USBDiskPartition In USBDiskPartitions
LogicalUSBDisks = objWMIService.execquery("Associators of {Win32_DiskPartition.DeviceID='" & USBDiskPartition.DeviceId & "'} where AssocClass = Win32_LogicalDiskToPartition")
For Each LogicalUSBDisk In LogicalUSBDisks
msgbox(LogicalUSBDisk.DeviceId)
Next
Next
Exit For
End If
Next
加好友 
发短信
Post By：2014/2/13 19:43:00 [显示全部帖子]
