VBA获u盘序列号的问题

换个姿态奔跑

Sub rrr()
Set fso = CreateObject("scripting.filesystemobject")
j = 2
For Each f In fso.drives
'Cells(j, 1) = f.driveletter
Cells(j, 2) = f.serialnumber
'If f.drivetype = 1 Then Cells(j, 3) = "ttt"
  ' j = j + 1
Next
End Sub

我用这段网上找的代码 获取优盘序列号。我稍加改动 了 ， 因为我只需要出一个单元格内出现优盘序列号  。 出现一个问题  我自己电脑 获取没问题 他出的是  最后盘的序列我的优盘排在最后，但是我另外一台电脑 我插了华为WiFi 硬盘显示一个E （我怀疑他这个没有序列号）然后运行时出现错误71 就是磁盘没有准备好，现在 我想请大神给我 指点一下  怎么准确的 获取出u盘序列号  或者中间有其他有盘号但是无法出号设备 跳过去也行  谢谢

追风少年丶斌

on error resume next