Question

急急急急急急急急急急急！！！！！ 如何用VBS获取可移动磁盘盘符，就是获取插入电脑的U盘的盘符

比如说，我在我电脑，插入U盘的时候的盘符是J，但是在另外在电脑插入的时候，盘符是H、I什么的，用VBS如何获取到这个盘符？

Answer 1

Dim fso, d, dc,s,WshShell,drive,openDir
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set dc = fso.Drives
For Each d in dc
if d.DriveType = 1 then '移动存储器
s = d.DriveLetter & ":"
set openDir =WshShell.Exec("explorer.exe " & s)
end if
Next

Answer 2

你的问题有点深奥啊，盘符硬是C,D.E.F.H这么往后排的，前面是机器的硬盘，后面跟上呗，一个电脑有C D E F四个硬盘，插上第一个U盘，那盘符应该是G。第二个是H。至于怎么用VBS获取，这个我不懂，我不是学语言的

追问

唉，不懂跑来混分。。。。。

追答

是的，我不懂 ，明天问我同事去啊。我同事是专门搞程序的，你在慢慢问#

追问

实现的方法我大概有思路，就是不知道怎么写程序。就是去扫描电脑里的磁盘，把U盘扫描出来，再去读系统分配给它的盘符。这应该是可以的，但是我VBS刚入门，现在急需这方法。。。。

Answer 3

这个是正常的，移动硬盘的盘符名称本来就是不固定的
电脑是按顺序从C盘读下来的，这个没有什么关系啊

追问

我当然是有需要才提问，要么回答些实用的，不要回答这些混分的

Answer 4

现阶段暂时给你一个检测U盘接入接出获取盘符的代码,检测可用(桌面新建vbs格式文件,复制代码,双击即可运行,如果乱码,将中文改为英文或者使用ansi格式编码即可)
Const Configuration_Changed = 1
Const Device_Arrival = 2
Const Device_Removal = 3
Const Docking = 4
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colEvents = objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 10 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")
Do While True
Set objEvent = colEvents.NextEvent
If objEvent.TargetInstance.DriveType = 2 Then
Select Case objEvent.Path_.Class
Case "__InstanceCreationEvent"
Wscript.Echo "u盘 " & objEvent.TargetInstance.DeviceId & _
" 接入"
Case "__InstanceDeletionEvent"
Wscript.Echo "u盘 " & objEvent.TargetInstance.DeviceId & _
" 已拔出"
End Select
End If
Loop