> Vincent a écrit :
>
>> J'essai de déconnecter une clé usb et j'ai un message qui me dit que
ma clé usb n'est pas amovible
>> une idée ?
>>
>> question à 2 balles, comment faire le lien entre ma clé usb et le
nom logique du disque.
>>
>> avec windev je détecte la clé
>> d'un coté je sais que j'ai une clé, de l'autre un lecteur G:
>> mais le lien entre les 2 ?
>>
>> vincent
>>
>
> je te passerai le bout de code que j'ai utilisé, demain matin.
>
coucou, c'est le matin ! :)
dans le code suivant, combo1 me permet de sélectionner une lettre de
disque. je cherche s'il y a un perif usb connecté. Si c'est le cas,
j'affiche la description du périf (ex : périphérique de stockage amovible).
j'enregistre les paramètres dans un fichier ini du style :
// --------------------------------------------------
[SAUVEGARDE]
DISQUE=G
USB=1
RACINE=Sauve
REPERTOIRE=H:\
POSTGRESQL=C:\Program Files\PostgreSQL\8.1\bin
// --------------------------------------------------
Résultat_usb, Résultat_usb1 sont des chaînes
Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1])
SI SansEspace(Résultat_usb) = "" ALORS
Erreur("Aucun périphérique USB n'a été détecté !")
SINON
Résultat_usb1 =
USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription)
SI SansEspace(Résultat_usb1) <> "" ALORS
Info("Trouvé : "+SansEspace(Résultat_usb1))
FIN
FIN
// --------------------------------------------------
--
Jacques Trepp
Albygest - 81160 - St Juery
jacques-pas de spam.trepp@free.fr
(enlever '-pas de spam' pour me joindre)
http://www.albygest.com
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Robert-Olivier Cayot
jacques trepp a écrit :
coucou, c'est le matin ! :)
dans le code suivant, combo1 me permet de sélectionner une lettre de disque. je cherche s'il y a un perif usb connecté. Si c'est le cas, j'affiche la description du périf (ex : périphérique de stockage amovible). j'enregistre les paramètres dans un fichier ini du style : // -------------------------------------------------- [SAUVEGARDE] DISQUE=G USB=1 RACINE=Sauve REPERTOIRE=H: POSTGRESQL=C:Program FilesPostgreSQL8.1bin
// -------------------------------------------------- Résultat_usb, Résultat_usb1 sont des chaînes Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1]) SI SansEspace(Résultat_usb) = "" ALORS Erreur("Aucun périphérique USB n'a été détecté !") SINON Résultat_usb1 = USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription)
SI SansEspace(Résultat_usb1) <> "" ALORS Info("Trouvé : "+SansEspace(Résultat_usb1)) FIN FIN // --------------------------------------------------
Merci pour la réponse, j'avais laissé USBRecherche de coté, mais finalement après une petite étude rapide de la base de registre je crois que je ne vais pas trop avoir le choix pour faire simple.
Je vais le coupler avec NetListDisque () pour obtenir la liste des disques connectés et USBPropriété comme tu le fais.
Merci pour l'aide.
Bob.
jacques trepp a écrit :
coucou, c'est le matin ! :)
dans le code suivant, combo1 me permet de sélectionner une lettre de
disque. je cherche s'il y a un perif usb connecté. Si c'est le cas,
j'affiche la description du périf (ex : périphérique de stockage amovible).
j'enregistre les paramètres dans un fichier ini du style :
// --------------------------------------------------
[SAUVEGARDE]
DISQUE=G
USB=1
RACINE=Sauve
REPERTOIRE=H:
POSTGRESQL=C:Program FilesPostgreSQL8.1bin
// --------------------------------------------------
Résultat_usb, Résultat_usb1 sont des chaînes
Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1])
SI SansEspace(Résultat_usb) = "" ALORS
Erreur("Aucun périphérique USB n'a été détecté !")
SINON
Résultat_usb1 =
USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription)
SI SansEspace(Résultat_usb1) <> "" ALORS
Info("Trouvé : "+SansEspace(Résultat_usb1))
FIN
FIN
// --------------------------------------------------
Merci pour la réponse, j'avais laissé USBRecherche de coté, mais
finalement après une petite étude rapide de la base de registre je crois
que je ne vais pas trop avoir le choix pour faire simple.
Je vais le coupler avec NetListDisque () pour obtenir la liste des
disques connectés et USBPropriété comme tu le fais.
dans le code suivant, combo1 me permet de sélectionner une lettre de disque. je cherche s'il y a un perif usb connecté. Si c'est le cas, j'affiche la description du périf (ex : périphérique de stockage amovible). j'enregistre les paramètres dans un fichier ini du style : // -------------------------------------------------- [SAUVEGARDE] DISQUE=G USB=1 RACINE=Sauve REPERTOIRE=H: POSTGRESQL=C:Program FilesPostgreSQL8.1bin
// -------------------------------------------------- Résultat_usb, Résultat_usb1 sont des chaînes Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1]) SI SansEspace(Résultat_usb) = "" ALORS Erreur("Aucun périphérique USB n'a été détecté !") SINON Résultat_usb1 = USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription)
SI SansEspace(Résultat_usb1) <> "" ALORS Info("Trouvé : "+SansEspace(Résultat_usb1)) FIN FIN // --------------------------------------------------
Merci pour la réponse, j'avais laissé USBRecherche de coté, mais finalement après une petite étude rapide de la base de registre je crois que je ne vais pas trop avoir le choix pour faire simple.
Je vais le coupler avec NetListDisque () pour obtenir la liste des disques connectés et USBPropriété comme tu le fais.
Merci pour l'aide.
Bob.
Vincent
Et quand tu déconnecte y a pas de soucis ? Quand tu retire la clé, y a pas un bip (sous xp) ou une fenètre qui s'ouvre sous 2000 ? Vincent
"Robert-Olivier Cayot" a écrit dans le message de news: 44241613$0$18337$
jacques trepp a écrit :
coucou, c'est le matin ! :)
dans le code suivant, combo1 me permet de sélectionner une lettre de disque. je cherche s'il y a un perif usb connecté. Si c'est le cas, j'affiche la description du périf (ex : périphérique de stockage amovible). j'enregistre les paramètres dans un fichier ini du style : // -------------------------------------------------- [SAUVEGARDE] DISQUE=G USB=1 RACINE=Sauve REPERTOIRE=H: POSTGRESQL=C:Program FilesPostgreSQL8.1bin
// -------------------------------------------------- Résultat_usb, Résultat_usb1 sont des chaînes Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1]) SI SansEspace(Résultat_usb) = "" ALORS Erreur("Aucun périphérique USB n'a été détecté !") SINON Résultat_usb1 = USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription) SI SansEspace(Résultat_usb1) <> "" ALORS Info("Trouvé : "+SansEspace(Résultat_usb1)) FIN FIN // --------------------------------------------------
Merci pour la réponse, j'avais laissé USBRecherche de coté, mais finalement après une petite étude rapide de la base de registre je crois que je ne vais pas trop avoir le choix pour faire simple.
Je vais le coupler avec NetListDisque () pour obtenir la liste des disques connectés et USBPropriété comme tu le fais.
Merci pour l'aide.
Bob.
Et quand tu déconnecte y a pas de soucis ?
Quand tu retire la clé, y a pas un bip (sous xp) ou une fenètre qui s'ouvre
sous 2000 ?
Vincent
"Robert-Olivier Cayot" <bob@eureka64.com> a écrit dans le message de news:
44241613$0$18337$8fcfb975@news.wanadoo.fr...
jacques trepp a écrit :
coucou, c'est le matin ! :)
dans le code suivant, combo1 me permet de sélectionner une lettre de
disque. je cherche s'il y a un perif usb connecté. Si c'est le cas,
j'affiche la description du périf (ex : périphérique de stockage
amovible).
j'enregistre les paramètres dans un fichier ini du style :
// --------------------------------------------------
[SAUVEGARDE]
DISQUE=G
USB=1
RACINE=Sauve
REPERTOIRE=H:
POSTGRESQL=C:Program FilesPostgreSQL8.1bin
// --------------------------------------------------
Résultat_usb, Résultat_usb1 sont des chaînes
Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1])
SI SansEspace(Résultat_usb) = "" ALORS
Erreur("Aucun périphérique USB n'a été détecté !")
SINON
Résultat_usb1 =
USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription)
SI SansEspace(Résultat_usb1) <> "" ALORS
Info("Trouvé : "+SansEspace(Résultat_usb1))
FIN
FIN
// --------------------------------------------------
Merci pour la réponse, j'avais laissé USBRecherche de coté, mais
finalement après une petite étude rapide de la base de registre je crois
que je ne vais pas trop avoir le choix pour faire simple.
Je vais le coupler avec NetListDisque () pour obtenir la liste des disques
connectés et USBPropriété comme tu le fais.
Et quand tu déconnecte y a pas de soucis ? Quand tu retire la clé, y a pas un bip (sous xp) ou une fenètre qui s'ouvre sous 2000 ? Vincent
"Robert-Olivier Cayot" a écrit dans le message de news: 44241613$0$18337$
jacques trepp a écrit :
coucou, c'est le matin ! :)
dans le code suivant, combo1 me permet de sélectionner une lettre de disque. je cherche s'il y a un perif usb connecté. Si c'est le cas, j'affiche la description du périf (ex : périphérique de stockage amovible). j'enregistre les paramètres dans un fichier ini du style : // -------------------------------------------------- [SAUVEGARDE] DISQUE=G USB=1 RACINE=Sauve REPERTOIRE=H: POSTGRESQL=C:Program FilesPostgreSQL8.1bin
// -------------------------------------------------- Résultat_usb, Résultat_usb1 sont des chaînes Résultat_usb = USBRecherche(USBLecteur,Combo1[Combo1]) SI SansEspace(Résultat_usb) = "" ALORS Erreur("Aucun périphérique USB n'a été détecté !") SINON Résultat_usb1 = USBPropriété(ExtraitChaîne(Résultat_usb,rangPremier),USBPropriétéDescription) SI SansEspace(Résultat_usb1) <> "" ALORS Info("Trouvé : "+SansEspace(Résultat_usb1)) FIN FIN // --------------------------------------------------
Merci pour la réponse, j'avais laissé USBRecherche de coté, mais finalement après une petite étude rapide de la base de registre je crois que je ne vais pas trop avoir le choix pour faire simple.
Je vais le coupler avec NetListDisque () pour obtenir la liste des disques connectés et USBPropriété comme tu le fais.
