如何在vb中查找哪个盘符是U盘？

Dim S As String, I As Integer, X
I = 67
Do
X = GetDriveType(Chr(I) + ":")
Debug.Print Chr(I)
If X = 2 Then Exit Do
I = I + 1
Loop
Print "U盘盘符是："; Chr(I)

使用 api getdrivetype 可以判断驱动器类型 DRIVE_REMOVABLE 应该就是U盘

【VB声明】
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

【别名】
GetDriveTypeA

【说明】
判断一个磁盘驱动器的类型

【返回值】
Long，如驱动器不能识别，则返回零。如指定的目录不存在，则返回1。如执行成功，则用下述任何一个常数指定驱动器类型：DRIVE_REMOVABLE，
DRIVE_FIXED， DRIVE_REMOTE， DRIVE_CDROM 或 DRIVE_RAMDISK

【参数表】
nDrive --------- String，包含了驱动器根目录路径的一个字串