begin process at 2010 03 16 01:24:05
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

General

 > 

Identification du lecteur ou drive

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Identification du lecteur ou drive

jeudi 21 juin 2007 à 15:45:05 | Identification du lecteur ou drive

JeanMarcus
Bonjour !

 Je suis en VB6  et malgre diverses recherches ,je cherche tjs un moyen simple d envoyer des fichiers ( image fichiers etc etc )   depuis  soit une cle usb ou un cd ou autre vers un dossier que je cree a l installation     

A partir d' un CD ou une cle usb  je voudrais installer mon logiciel sur le disque dur du PC en installant divers utilitaires a moi  ds un meme repertoire  selectionne ou creee style :
 -  filecopy     "D:\aa"    , "C:\Zjm\ aa"

Or le probleme est que "D" n est pas forcement le lecteur CD     ou le lecteur de cle usb
Je voudrais savoir comment identifier la source "D" , "E"  , "H" etc et la coller dans un label par exemple
 
 j ai essaye   avec   App.path     , ca ne marche pas 

en fait je voudrais que  la  lettre identifiant  la source    s affiche ds un label ou autre  afin de donner cette instruction ds la ligne   filecopy .. Merci
 
Amicalement

JeanMarcus
jeudi 21 juin 2007 à 15:48:59 | Re : Identification du lecteur ou drive

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Mouais, et si le type a deux lecteur CD, tu fais comment ?

Non le plus simple et le plus sûr c'est de laisser l'utilisateur choisir le lecteur avec un DriveListBox par exemple.
jeudi 21 juin 2007 à 15:50:58 | Re : Identification du lecteur ou drive

Renfield

Administrateur CodeS-SourceS
Réponse acceptée !



les Apis sont tes amies :

Private Const DRIVE_CDROM As Long = 5
Private Const DRIVE_FIXED As Long = 3
Private Const DRIVE_NO_ROOT_DIR As Long = 1
Private Const DRIVE_RAMDISK As Long = 6
Private Const DRIVE_REMOTE As Long = 4
Private Const DRIVE_REMOVABLE As Long = 2
Private Const DRIVE_UNKNOWN As Long = 0

Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
By Renfield
et ensuite

MsgBox GetDriveType("G:")

me donne bien 2 (Removable)... c'est une clé USB

Renfield
Admin CodeS-SourceS- MVP Visual Basic
jeudi 21 juin 2007 à 15:55:03 | Re : Identification du lecteur ou drive

jmfmarques

Membre Club
Réponse acceptée !
Bonjour,

Je vois que tu as fait enfin le nécessaire et tu vas donc recevoir mon aide.
Une chose importante, toutefois : comment comptes-tu identifier que tu es sur le bon lecteur CD ou la bonne clé USB, puisqu'il peut y en avoir plusieurs ...
Il te faut un moyen supplémentaire d'identification (soit le nom donné au support, soit le nom d'un fichier qu'il contient dans le répertoire racine).
Si tu choisis un nom de fichier dans le répertoire racine, ce nom devra être tel qu'on ne puisse le trouver nulle part ailleurs que sur le support depuis lequel tu copies.

Réponds donc déjà à cette question en indiquant :
- si tu choisi d'utliser le nom donné au support : le nom que tu lui as donné
- si tu choisis la présence d'un fichier dans le répertoire racine : le nom donné à ce fichier
Cette précision est importante car, selon ton choix, l'écriture du code sera différente.
J'attends ta réponse.
jeudi 21 juin 2007 à 16:33:23 | Re : Identification du lecteur ou drive

jmfmarques

Membre Club
Réponse acceptée !

Bon...
Je vois que c'est maintenant le silence !

Voilà donc un exemple d'identification d'un support amovible (CD ou clé USB) contenant dans son répertoire racine un fichier nommé etvoilalezouzou.txt

Sur ta form : un contrôle DriveListBox nommé Drive1


Code

Private Const DRIVE_CDROM As Long = 5
Private Const DRIVE_REMOVABLE As Long = 2

Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Activate()
  Drive1.Visible = False
  For i = 1 To Drive1.ListCount - 1
     toto = GetDriveType(Drive1.List(i))
     If toto = DRIVE_CDROM Or toto = DRIVE_REMOVABLE Then
       If Dir(Drive1.List(i) & "\etvoilalezouzou.txt") <> "" Then
         MsgBox Drive1.List(i) & "  est le lecteur que tu cherches"
       End If
     End If
  Next
End Sub

C'est vraiment tout ...
vendredi 22 juin 2007 à 14:49:35 | Re : Identification du lecteur ou drive

JeanMarcus

bjr darksidius ...

simplement si le type a deux ou + de lecteur cd  , je pense que la lettre  identifiant tel ou tel lecteur est differente  donc  selectionnable de maniere individuelle , non !

Amicalement .......................... JeanMarcus
vendredi 22 juin 2007 à 15:22:21 | Re : Identification du lecteur ou drive

JeanMarcus
re njr -  ci joint  explication plus expliccitte sii je peux m permettre

je voudrais   envoyer mon setup d installation sur un repertoire precis du disque dur "c" du pc recevant ce setup  ... mais dans ce setup , il y a des instructions pour copier des fichiers ou autre , situer sur le cd  ( ou cle usb ) qui se trouve soit sur "d" , "e", "f"  etc 

exemple :
je voudrais installer le log "setup_ZJM.exe" situe dans une cle usb ..

- sur cette cle  se trouve      :     - setup_zjm.exe
                                                - repertoire 001 avec les fichiers :   a et b

a l'intallation du setup soit par autorun ou manuellement , ce setup  s ' installe par exemple sur "c:\essai"
et mon probleme est d installer  par filecopy  les fichiers a et b contenus sur la cle directement sur "c:\essai" de la maniere suivante si possible

dim i0,i1
 
form load 
label1.caption = " identification  du lecteur ou drive"  ==> a trouver ?
i0 = "c:\essai\..."
i1 = "label1.caption:\repertoire 001\a "   

file copy i1, i0
end sub

Jespere etre plus clair   sinon je reformulerai mieux
merci et amicalement

JeanMarcus
vendredi 22 juin 2007 à 15:27:32 | Re : Identification du lecteur ou drive

JeanMarcus

bjr jmfmarques

 non , ce n'est pas le silence ,,,,,,, j ai repondu
je vais essayer avec ce que tu m a donne comme expliquation et voir !!!!!!!

merci ..........        amicalement 

JeanMarcus

 


Cette discussion est classée dans : cd, lecteur, ds, identification, cle

Répondre à ce message

Sujets en rapport avec ce message

lecteur cd audio [ par momorice1 ] Bijour à tous!j'aimerais developper un lecteur de cd audio.Je souhaiterais arriver à detecter le cd ds le lecteur, afficher l'ensemble des tracks ds 1 Savoir qu' un CD vien d'etre inséré dans le lecteur cd. [ par jefftabasco ] Comment peut on etre averti qu'un cd vient d'etre inséré ds le ou les lecteur(s) ?? -- jefftabasco -- programmes qui trouve lecteur de cd et envoi le chemin au lecteur de video [ par Neroforrmilo ] programmes qui trouve lecteur de cd et envoi le chemin au lecteur de video. quand on a un lecteur on dit que l'on l'install sur telle drive commen on Executer un prog au demarrage de windows sans le mettre ds la cle run ni ds le menu demmarrer [ par seboss ] Bonjour tt le monde !!Je voudrais demmarer un programme a chaque ouverture de windows sans le mettre ds le menue demmarer>Demmarage et sans le placer URGENT >>tester si diskette est ds le lecteur [ par Fenris ] salut,qq1 connait il le teste permettant de savoir si 1 dsk est ds le lecteurmerci d'avance@+ Savoir si un cd audio est inséré dans le lecteur [ par cbjp85 ] Comment savoir si un cd audio est inséré dans le lecteur ?Si il faut utiliser une api pourrais tu l'illustrer par un exemple concret (je viens juste d Etat du lecteur CD [ par cbjp85 ] Comment puis-je faire pour savoir si on viens d'ouvrir le lecteur CD ou le refermer ?Et comment puis-je connaitre l'état du lecteur (fermé/ouvert) ?Co base de registre,cle , setup [ par soltom007 ] Bonjour, je voudrai enregistrer une cle ds la base de registre en l'occurence hkey_local_machine\software\microsoft\currentversion\Runonce.Le pb c'est Type de média [ par ennixo ] Comment savoir le type de média connecté à un ordinateur ? par exemple avec GetDriveTypes je sais que c'est un CD-ROM mais je n'ai pas de précision su connaître la disponibilité du lecteur CD [ par gcorp ] Quand on cherche à accéder au lecteur CD quand il n'y a pas de CD, un message d'erreur indiquant l'indisponibilité du périph s'affiche avant la fermet


Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

Photo Juliana airportPhoto icare2
  

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,421 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)