conseildg
Messages postés86Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention18 mars 2007 5 févr. 2007 à 19:07
Intéressant ce programme.
Pour les suivants, ne serait-il pas mieux de remplacer dans le titre sur le site « traitement » par « renommer » ou « nommage » ?
capricorne83
Messages postés48Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention15 novembre 2013 5 févr. 2007 à 05:20
Geco
Ok je vais regarder le probleme et corriger cela
Didier72
Ok je n avais effecitvement pas songé au nom du lecteur je vais corriger la source
Merci a tous deux.
Bye
cs_Didier72
Messages postés76Date d'inscriptiondimanche 10 octobre 2004StatutMembreDernière intervention13 juin 2015 4 févr. 2007 à 13:55
re
Voilà comment j'ai modifié la partie utile pour que cela fonctionne avec des Labels:
On Error GoTo gestion_erreur
lecteur = Drive1.Drive
lect = Left(lecteur, 2)
Select Case lect
Case "a:"
Z = MsgBox("Veuillez choisir un autre lecteur", vbOKOnly, " Videotheque")
Exit Sub
File1.Path = lect
End Select
File1.Pattern = "*.jpg;*.bmp;*.gif;*.htm"
Dir1.Path = lect
Exit Sub
Bye
cs_Didier72
Messages postés76Date d'inscriptiondimanche 10 octobre 2004StatutMembreDernière intervention13 juin 2015 4 févr. 2007 à 13:44
Re
Le problème de reconnaissance d'un autre Disque reste présent:
Cela doit venir du fait que si tu mets un Label au Disque celui-ci n'est plus reconnu dans la Case.
Exemple:
Si ta partition ou autre disque dur est le d: --> C'est ok sans Label
Mais
Si ta partition ou autre disque dur est le d: [DONNEES] --> marche pas avec le label DONNEES.
Voir comment prendre en compte ta fenêtre Drive1 Drivebox pour qu'il reconnaissance l'info ..!!!
Merci
Bye
cs_geco
Messages postés14Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention 4 février 2007 4 févr. 2007 à 12:17
Très bien.
Toutefois,
- il faudrait que le n° ajouté soit toujours à 3 caractères, sinon les photos sont déclassées : 1, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2, 20, 21, etc...
- l'ascenseur du répertoire disparaît après l'affichage des fichiers.
capricorne83
Messages postés48Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention15 novembre 2013 3 févr. 2007 à 19:34
Didier72
Dans le code je gère les lecteurs de A à K (mais pas le B) normalement dans le select case lecteur je recupère la lettre de ton disque pour en afficher les répertoires. Si tu sélectionnes un lecteur de CD ou de DVD le logiciel t'envoies un message si le lecteur est vide. Quelle est la lettre du lecteur que tu sélectionnes ? j'ai pas de partition donc j'ai pas rencontré de problème mais je vais me pencher dessus...... Bon finalement c'était pas grand chose... je me suis servi d'un DVD pour les tests et la ca semble tourner. je modifie les sources en conséquence.
Merci
Bye
cs_Didier72
Messages postés76Date d'inscriptiondimanche 10 octobre 2004StatutMembreDernière intervention13 juin 2015 3 févr. 2007 à 15:16
hello
Trés utile...
Mais je rencontre un problème lors du choix d'une autre partiton ou disque dur que la c:. Le détails des dossiers de cette partition ou disque dur ne s'affichent pas ??
Merci
Bye
zavier666
Messages postés266Date d'inscriptionmardi 7 septembre 2004StatutMembreDernière intervention30 avril 20091 3 févr. 2007 à 10:33
Code propre et bien commenté!
slts!
____________________________________________
Toujours + de VB et d'APi => API @ la Loupe
http://xav.prog.power.free.fr
jdleboucq
Messages postés2Date d'inscriptionsamedi 3 février 2007StatutMembreDernière intervention 3 février 2007 3 févr. 2007 à 08:31
5 févr. 2007 à 19:07
Pour les suivants, ne serait-il pas mieux de remplacer dans le titre sur le site « traitement » par « renommer » ou « nommage » ?
5 févr. 2007 à 05:20
Ok je vais regarder le probleme et corriger cela
Didier72
Ok je n avais effecitvement pas songé au nom du lecteur je vais corriger la source
Merci a tous deux.
Bye
4 févr. 2007 à 13:55
Voilà comment j'ai modifié la partie utile pour que cela fonctionne avec des Labels:
On Error GoTo gestion_erreur
lecteur = Drive1.Drive
lect = Left(lecteur, 2)
Select Case lect
Case "a:"
Z = MsgBox("Veuillez choisir un autre lecteur", vbOKOnly, " Videotheque")
Exit Sub
File1.Path = lect
End Select
File1.Pattern = "*.jpg;*.bmp;*.gif;*.htm"
Dir1.Path = lect
Exit Sub
Bye
4 févr. 2007 à 13:44
Le problème de reconnaissance d'un autre Disque reste présent:
Cela doit venir du fait que si tu mets un Label au Disque celui-ci n'est plus reconnu dans la Case.
Exemple:
Si ta partition ou autre disque dur est le d: --> C'est ok sans Label
Mais
Si ta partition ou autre disque dur est le d: [DONNEES] --> marche pas avec le label DONNEES.
Voir comment prendre en compte ta fenêtre Drive1 Drivebox pour qu'il reconnaissance l'info ..!!!
Merci
Bye
4 févr. 2007 à 12:17
Toutefois,
- il faudrait que le n° ajouté soit toujours à 3 caractères, sinon les photos sont déclassées : 1, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2, 20, 21, etc...
- l'ascenseur du répertoire disparaît après l'affichage des fichiers.
3 févr. 2007 à 19:34
Dans le code je gère les lecteurs de A à K (mais pas le B) normalement dans le select case lecteur je recupère la lettre de ton disque pour en afficher les répertoires. Si tu sélectionnes un lecteur de CD ou de DVD le logiciel t'envoies un message si le lecteur est vide. Quelle est la lettre du lecteur que tu sélectionnes ? j'ai pas de partition donc j'ai pas rencontré de problème mais je vais me pencher dessus...... Bon finalement c'était pas grand chose... je me suis servi d'un DVD pour les tests et la ca semble tourner. je modifie les sources en conséquence.
Merci
Bye
3 févr. 2007 à 15:16
Trés utile...
Mais je rencontre un problème lors du choix d'une autre partiton ou disque dur que la c:. Le détails des dossiers de cette partition ou disque dur ne s'affichent pas ??
Merci
Bye
3 févr. 2007 à 10:33
slts!
____________________________________________
Toujours + de VB et d'APi => API @ la Loupe
http://xav.prog.power.free.fr
3 févr. 2007 à 08:31