une question de clef

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
MLD
Messages : 1097
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

une question de clef

Message 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.
G-Rom
Messages : 3626
Inscription : dim. 10/janv./2010 5:29

Re: une question de clef

Message par G-Rom »

Code : Tout sélectionner

resultat.l = GetDriveType_("c:")
renvois :
  • #DRIVE_UNKNOWN
    #DRIVE_NO_ROOT_DIR
    #DRIVE_REMOVABLE
    #DRIVE_FIXED
    #DRIVE_REMOTE
    #DRIVE_CDROM
    #DRIVE_RAMDISK
Avatar de l’utilisateur
MLD
Messages : 1097
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: une question de clef (résoluT)

Message par MLD »

Merci G Rom :lol:
Tu mas grillé
j'avais fait ceci après réflexion. (Mai certaines fois c'est lent) :roll: :oops:

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+
G-Rom
Messages : 3626
Inscription : dim. 10/janv./2010 5:29

Re: une question de clef

Message par G-Rom »

Bonsoir MLD. tu peu énumérer les volumes avec les api windows :

https://docs.microsoft.com/en-us/window ... ng-volumes
Avatar de l’utilisateur
MLD
Messages : 1097
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: une question de clef

Message par MLD »

@G-Rom
yes
Merci
Répondre