SCANNER DE FICHIERS SUR DES LECTEURS OU DANS DES DOSSIERS

Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
-
Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20842-scanner-de-fichiers-sur-des-lecteurs-ou-dans-des-dossiers

Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008

mmm chez moi ca me mets chemin introuvable... pas encore analysé la source...
Messages postés
1403
Date d'inscription
lundi 23 février 2004
Statut
Membre
Dernière intervention
11 janvier 2009
3
Merci de vos conseils.
Petit à petit j'améliore ce programme.
Je vais vais bientôt mettre en ligne la source avec les commentaires, afin de faciliter la compréhension de mon programme.

YOYO, @+.
Messages postés
95
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
2 juin 2010

Tilois ==> Au lieu de t'exprimer sur ce ton, soit plus constructif !
Visiblement, Yoyo est débutant, il n'a peut-être pas encore découvert
l'utilisation des ListView. de plus le code est destiné, il me semble,
aux débutant. Tu remarqueras que c'est aussi sa première source,
l'indulgeance s'impose. Une note à son travail, pour l'encourager, me
semble sympa si t'as téléchargé et testé cette source.

jppompon :
je suis loin d'être un pro en la matière mais au lieu de :
Dir1.Path = Drive1.Drive & ""

Il suffit de retirer ce qui est visiblement de trop :
Dir1.Path = Drive1.Drive

C'est pas plus simple ?
C'est la base à connaitre pour voyager sur les Disques Dur.

Yoyo269 :
Aucun commentaire dans ta source ==> source inexploitable pour les
débutants, c'est bien dommage. Comment un débutant pourrait il
comprendre ta source ?? Quel enseignement pourra-t-il en tirer ?

Je ne comprends pas pourquoi tu mets un ComboBox pour l'extention.
Dans le cas présent, un simple TextBox est largement suffisant.

Continue comme ça (en n'oubliant pas les commentaires) ;-)
8/10 pour le code et le fait que cela fonctionne.
1/10 pour l'absence de commentaire.
Je te note donc à 7/10 au général.

Fraggy.
Messages postés
23
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
24 avril 2005

Ca marche plutôt bien. Compte tenu du nombre de IF je pense qu'un méthode récursive serait plus adaptée.
J'ai pour ma part rencontré une difficulté (une erreur) à la ligne

Dir1.Path = Drive1.Drive & ""

que j'ai remplacé par:

'Ici j'enlève le nom du volume
Dir1.Path = Left$(Drive1.Drive, 2) & ""

et du coup ça marche bien !
JPP
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
7
Au lieu d'utiliser deux listbox, utilise une listview multicolonnes!