一种可能获取U盘ID的代码，供参考

liulang0808 · 发表于 2022-7-19 18:54

Sub tttt()
Set fso = CreateObject("Scripting.FileSystemObject")
j = 1
For Each f In fso.drives
      Cells(j, 1) = f.drivetype
      Cells(j, 2) = f.DriveLetter
      Cells(j, 3) = f.SerialNumber
      If Cells(j, 1) = 1 Then Cells(j, 4) = "这个就是你的U盘"
      j = j + 1
Next
End Sub
使用fso遍历，可以获取u盘信息，大家可以参考

aman1516 · 发表于 2022-7-19 22:49

win7 office2007
微信截图_20220719224556.png

liulang0808 · 发表于 2022-7-19 23:01

aman1516 发表于 2022-7-19 22:49
win7 office2007

是否是已经有的盘符信息都提取了？

liulang0808 · 发表于 2022-7-20 08:02

aman1516 发表于 2022-7-19 22:49
win7 office2007

win10,office2007可以的。

		自动登录	找回密码
密码			免费注册

[讨论] 一种可能获取U盘ID的代码，供参考