[已解决]找U盘盘符

759857387 · 发表于 2016-7-7 17:09

本帖最后由 759857387 于 2016-7-7 21:27 编辑

我的U盘在单位的多个电脑使用，出现的盘符不一样，在备份文件时需要频繁修改盘符。
附件中vba用序列号辨识盘符
问题：结果总是CDROM的盘符
求：修改

判断U盘盘符.rar (10.64 KB, 下载次数: 3)

JX_shangrila · 发表于 2016-7-7 18:53

本帖最后由 JX_shangrila 于 2016-7-7 19:03 编辑

按附件

JX_shangrila · 发表于 2016-7-7 19:14

我的U盘在单位的多个电脑使用，出现的盘符不一样

实际使用时，在所有电脑上把这个u盘的盘符改成一个靠后的盘符比如“Z"，这样比vba判断u盘盘符方便

蝶·舞 · 发表于 2016-7-7 19:23

轻轻一破就不正确了

759857387 · 发表于 2016-7-7 19:35

JX_shangrila 发表于 2016-7-7 19:14
实际使用时，在所有电脑上把这个u盘的盘符改成一个靠后的盘符比如“Z"，这样比vba判断u盘盘符方便

测试了，还是CD盘符
excelhome 的 huang1314wei 老师代码如下：

Sub test()
Dim s$$$$
For Each f In CreateObject("Scripting.FileSystemObject").Drives
If f.drivetype = 1 Then s = f.Path: Exit For
Next
If s = "" Then MsgBox "无U盘！": End
MsgBox s
End Sub

复制代码

这个代码可以实现1个U盘的盘符
要实现：备份2份，也就是同时插入2个U盘，根据序列号的唯一性判断不同的盘符，实现存入不同的U盘还没有实现。

759857387 · 发表于 2016-7-7 19:40

把2个U盘插入电脑，它们的序列号都一样吗？

JX_shangrila · 发表于 2016-7-7 19:48

把2个U盘插入电脑，它们的序列号都一样吗？

不一样
2个u盘循环
另外我这里用了n年都是好的

轻轻一破就不正确了

修改u盘盘符后，要退出u盘，重新再插入u盘后你再试试

JX_shangrila · 发表于 2016-7-7 19:52

这个最佳答案由 JX_shangrila 给出，感谢 JX_shangrila 的回答。

单击隐藏图章

测试了，还是CD盘符

If f.drivetype = 1 Then s = f.Path: Exit For语句都一样怎么会错？

蝶·舞 · 发表于 2016-7-7 19:55

JX_shangrila 发表于 2016-7-7 19:48
不一样
2个u盘循环
另外我这里用了n年都是好的

我没有修改盘符，我是先插入U盘，再打开文件运行宏

JX_shangrila · 发表于 2016-7-7 20:24

我没有修改盘符，我是先插入U盘，再打开文件运行宏

你们俩都没有看清楚代码
u = "123456789"这里是具体的u盘的序列号，我是照楼主的代码抄的，如果有多个u盘同时插在电脑上，必须准确填写这个u盘序列号
如果不需要判断这个序列号，那么If d.DriveType = 1 And d.SerialNumber = u Then MsgBox d.Path: Exit Sub这句代码改成下面的就可以了
If d.DriveType = 1 Then MsgBox d.Path: Exit Sub

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