For I = 0 To 25 ; balaye l'alphabet
Lecteur.S = Chr(65 + I) + ":"
ID = ExamineDirectory(#PB_Any, Lecteur, "*")
If ID
Debug Lecteur
FinishDirectory(ID)
EndIf
Next
For I = 0 To 25 ; balaye l'alphabet
Lecteur.S = Chr(65 + I) + ":"
ID = ExamineDirectory(#PB_Any, Lecteur, "*")
If ID
Debug Lecteur
If GetDriveType_(Lecteur) = #DRIVE_REMOVABLE
Debug "le lecteur "+ lecteur .s + "est une clef USB"
EndIf
FinishDirectory(ID)
EndIf
Next