Scanner de fichiers sur des lecteurs ou dans des dossiers

Soyez le premier à donner votre avis sur cette source.

Vue 3 974 fois - Téléchargée 504 fois

Description

Ce programme est simple mais très efficace. La recherche s'effectue avec le nom et l'extension du fichier.
Contient les commentaires.
Mise à jour rescente.
Si vous souhaitez avoir plus d'infos dessus, contactez-moi en allant sur mon site :
http://siteayoyo.free.fr

SVP pensez à donner une note.

YOYO.

Source / Exemple :


voir zip !

Conclusion :


Contactez en allant dans la rubrique "Contact" sur mon site :

http://siteayoyo.free.fr

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Frank339
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...
yoyo269
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, @+.
cs_Fraggy
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.
cs_jppompon
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
Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4 -
Au lieu d'utiliser deux listbox, utilise une listview multicolonnes!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.