用VB获取盘符存入某个变量中

来源：百度知道 编辑：UC知道 时间：2024/06/30 00:59:50
用VB 编写程序
将U盘插入电脑后
U盘会有个盘符 H: I：什么的...
将其存入某个变量
好的话给分 速度 急用

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim S As String, I As Integer, X, P As String, R As String, R1 As String, Filena As String

X = 0
I = 67
Do While X <> 1
X = GetDriveType(Chr(I) + ":")
If X = 2 Then
R=Chr(I) + ":"
print R
End If
I = I + 1
Loop