Discussion :

[LeonCosnyd]

Bonjour,

Je cherche a connaitre la lettre des clés usb déjà branchée sur un ordinateur (au lancement de mon application). Je n'ai rien trouvé dans les fonctions windev qui me permet de le faire.

Je suis tombé sur ce poste qui date de 2011 :
http://forum.pcsoft.fr/fr-FR/pcsoft....e-usb/read.awp

J'aimerais savoir s'il existe quelque de nouveau pour faire ceci ou est-ce toujours la solution a adopter ?

Merci d'avance.

[Lo²]

Bonjour,

USBListePériphérique() ?

[LeonCosnyd]

Hi ! J'ai déjà regardé de ce coté là.

Cette fonction permet de liste les périphériques USB. Je retrouve bien la clé usb que je recherche mais cela ne me permets pas de connaitre la lettre du lecteur rattachée. Du moins je n'ai pas trouvé comment...

[Lo²]

Navré, je n'avais pas vu que tu cherchais les lecteurs.
Avec USBDétecteStockageAmovible(..), cela me semble pas mal mais elle nécessite que la clé soit insérée, après que l'application soit lancée.

[LeonCosnyd]

C'est bien là tout le problème....

J'ai prévu d'utiliser cette fonction une fois mon appli lancée pour capter les clés usb qui se branche. Mais j'ai besoin de connaitre avant les clés usb branchées.
A part la solution présentée dans le post je ne vois pas comment faire.

[jurassic pork]

hello,
en utilisant la classe dotnet driveinfo et sa méthode GetDrives cela est facilement faisable dans windev :

1 : Utiliser l'assemblage dotnet System dans son projet.

2 - Voici un code exemple qui liste tous les périphériques amovibles insérés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
allDrives est un tableau de DriveInfo
allDrives   = DriveInfo.GetDrives()
POUR TOUT lecteur DE allDrives
SI lecteur.isReady ALORS
typeLecteur est un entier  = lecteur.get_DriveType()
// typeLecteur = 2 --> Removable
SI typeLecteur = 2 ALORS Trace("Lettre : ",lecteur.get_Name(),
                               " -  Nom : ",lecteur.get_VolumeLabel(),
                               " - Taille  ",lecteur.get_TotalSize())                               
FIN
FIN

et voici ce que cela donne avec deux clés USB insérées :




Cela ne va pas plaire à Hemgé mais cela à l'avantage de ne pas être très compliqué.
Pour la sureté du code il faudra peut-être ajouter du traitement d'exception.

Ami calmant, J.P

[LeonCosnyd]

Merci pour vos réponses. Cela me permet effectivement de détecter les clés usb (en connaissant leur lettre lecteur) mais je bloque un peu plus loin lorsque je souhaite déconnecter le périphérique... En effet la fonction UsbDeconnecte nécessite l'identifiant du périphérique que l'on ne connais pas avec cette méthode. On tourne en rond

[djejackk]

Bonjour,

J'ai retrouvé un vieux bout de code d'un collègue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
sLecteur 		est une chaîne
sIdentifiantUSB 	est une chaîne
 
 
// Parcours les lettres de lecteur
POUR nLettreLecteur = Asc("A") _A_ Asc("Z")
 
	// Construit le nom du lecteur
	sLecteur = Caract(nLettreLecteur) + ":"
 
	// Le lecteur désigne-t-il un disque amovible ?
	SI fDisqueInfo(sLecteur, fdTypeDisque) = fdAmovible ALORS
 
		// Recherche l'identifiant du périphérique USB associé à cette lettre
		sIdentifiantUSB = USBRecherche(USBLecteur, sLecteur)
		// Identifiant vide
		SI sIdentifiantUSB~="" ALORS
			Erreur("Ne doit pas être un périphérique USB",ErreurInfo())
		SINON
			// Ici, sIdentifiant contient l'identifiant du périphérique USB lié au lecteur sLecteur
			Trace(sIdentifiantUSB+" "+sLecteur)
		FIN		
 
	FIN
 
FIN

Si ça peut aider (j'ai lu le thread vite fait, désolé si je suis à côté de la plaque)....

[Hemgé]

Cela ne va pas plaire à Hemgé mais cela à l'avantage de ne pas être très compliqué.
Pour la sureté du code il faudra peut-être ajouter du traitement d'exception.

GNA GNa Gna ... GNA GNa Gna ... GNA GNa Gna
Je sais, c'est répétitif, mais dotnet par ci, dotnet par là, dot net à toutes les sauces ça va finir par lasser.
Et en sus, il faudrait encore faire du traitement d'exception !

Je suis presque déçu : je m'attendais à du vb
Si, si.

[LeonCosnyd]

Bonjour à tous !

Merci pour toutes vos précieuses indications !

Je pense pouvoir m'en sortir avec la recherche via DriveInfo + la fonction wLangage UsbRecherche().

Merci beaucoup.