Page 1 sur 1
une question de clef
Publié : jeu. 22/nov./2018 15:57
par MLD
Bonjour a tous
Que faudrait il ajouter a ceci pour pour savoir qu'un des lecteur est une clef USB ??
Code : Tout sélectionner
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
Merci pour vos réponses.
Re: une question de clef
Publié : jeu. 22/nov./2018 16:43
par G-Rom
renvois :
- #DRIVE_UNKNOWN
#DRIVE_NO_ROOT_DIR
#DRIVE_REMOVABLE
#DRIVE_FIXED
#DRIVE_REMOTE
#DRIVE_CDROM
#DRIVE_RAMDISK
Re: une question de clef (résoluT)
Publié : jeu. 22/nov./2018 17:03
par MLD
Merci G Rom
Tu mas grillé
j'avais fait ceci après réflexion. (Mai certaines fois c'est lent)
Code : Tout sélectionner
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
A+
Re: une question de clef
Publié : jeu. 22/nov./2018 18:40
par G-Rom
Bonsoir MLD. tu peu énumérer les volumes avec les api windows :
https://docs.microsoft.com/en-us/window ... ng-volumes
Re: une question de clef
Publié : ven. 23/nov./2018 9:46
par MLD
@G-Rom
yes
Merci