vb.net如何获取U盘驱动器号

liushiying 2014-06-03 08:40:28
如何获取正在插入的U盘驱动器号
还有已经插入的U盘驱动器号
...全文
303 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
wind_cloud2011 2014-06-11
  • 打赏
  • 举报
回复
http://blog.sina.com.cn/s/blog_6243051e0100fqj7.html,这个方法就能得到盘相瞒符,测试过
卖水果的net 2014-06-05
  • 打赏
  • 举报
回复
LZ 的意思是要得到盘符,帮顶。
wpxxsyzx 2014-06-03
  • 打赏
  • 举报
回复
Public sub a() Dim objWMI As New Management.ManagementObjectSearcher("Select DeviceID From Win32_USBHub where Name='USB 大容量存储设备'") Try For Each objWMIObject As ManagementObject In objWMI.Get msgbox objWMIObject("DeviceID").ToString.Split(CChar("\"))(2) Next Catch ex As Exception MessageBox.Show(ex.Message, strMsg, MessageBoxButtons.OK, MessageBoxIcon.Error) Finally objWMI.Dispose() objWMI = Nothing End Try End sub
wpxxsyzx 2014-06-03
  • 打赏
  • 举报
回复
你是要序列号还是
wind_cloud2011 2014-06-03
  • 打赏
  • 举报
回复
http://blog.sina.com.cn/s/blog_6243051e0100fqj7.html
Isaactom1 2014-06-03
  • 打赏
  • 举报
回复
引用 2 楼 wpxxsyzx 的回复:
Public sub a() Dim objWMI As New Management.ManagementObjectSearcher("Select DeviceID From Win32_USBHub where Name='USB 大容量存储设备'") Try For Each objWMIObject As ManagementObject In objWMI.Get msgbox objWMIObject("DeviceID").ToString.Split(CChar("\"))(2) Next Catch ex As Exception MessageBox.Show(ex.Message, strMsg, MessageBoxButtons.OK, MessageBoxIcon.Error) Finally objWMI.Dispose() objWMI = Nothing End Try End sub
我插了优盘,没有反应

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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