Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Int32 Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 ' global ' Sub clefUSB() Dim nomClefUSB(4) As String ' local Dim drives As System.IO.DriveInfo() = System.IO.DriveInfo.GetDrives() Dim i As Integer = 0 For i = 1 To 4 nomClefUSB(i) = "" Next i For i = 0 To drives.Length - 1 If drives(i).DriveType = System.IO.DriveType.Removable Then ' CLEF USB Dim nomClefUSB(i) = Mid(drives(i).Name, 1, 1) End If Next i MsgBox(nomClefUSB(1) & nomClefUSB(2) & nomClefUSB(3) & nomClefUSB(4)) End Sub