能用FOXTABLE控制多个USB口的通断吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能用FOXTABLE控制多个USB口的通断吗

共有4425人关注过本帖树形打印复制链接主题：能用FOXTABLE控制多个USB口的通断吗

keli0917

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：291 积分：2730 威望：0 精华：0 注册：2018/5/21 16:49:00

能用FOXTABLE控制多个USB口的通断吗 发帖心情

Post By：2022/2/11 14:25:00 [显示全部帖子]

有二个USB口的税控U盘，分别接在同一台电脑的不同USB口，他们共用使用一个软件。

我原来是通过接入A盘，拿掉B盘，轮换使用。能否做一个小软件，让他们同时接在不同的USB口，用软件控制使用哪一个盘打开软件？

keli0917

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：291 积分：2730 威望：0 精华：0 注册：2018/5/21 16:49:00

Post By：2022/2/11 14:29:00 [显示全部帖子]

Dim USBDevices, USBDevice As object

Dim objWMIService = GetObject("winmgmts:\\.\root\cimv2")

USBDevices = objWMIService.execquery("Sele ct * From Win32_DiskDrive where InterfaceType='USB'")

For Each USBDevice In USBDevices

' msgbox(USBDevice.Caption)

' msgbox(USBDevice.PNPDeviceID)

' msgbox(USBDevice.Size)

主题：能用FOXTABLE控制多个USB口的通断吗