vb中如何获得优盘盘符

你干脆遍历一下算了.
先引用Microsoft Scripting Runtime,然后使用以下代码:
Dim fso As New FileSystemObject
Dim drv As Drive
For Each drv In fso.Drives
If drv.DriveType = 1 And drv.IsReady Then '驱动器是U盘且准备就绪
...
End If
Next