Comment rechercher des fichiers

Signaler
Messages postés
176
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
9 mai 2008
-
Messages postés
176
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
9 mai 2008
-
Salut à tous,

Voilà mon problème : je veux chercher tous les fichiers, par exemple, .exe de mon disque dur. Mais je veux le faire à partir de mon programme. C'est-à-dire qu'il recherchera tous les .exe de mon disque dur.

Pourriez vous m'aider svp??
Merci ! :D

3 réponses

Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
met un object filelistbox pour avoir les fichier et un dirlistbox pour les répertoires

ensuite faut crée un code récursif qui parcour tout les fichier du premier répertoire, puis va au premier dossier et recommence tant que c,est pas trouver ou il a pas parcouru tout les fichiers, voici l'algo. oki, il y a pliens d'erreur, masi ej voulais juste te donner la façon de t'y prendre, j'ai pas tester

public function chercher(texte as string, lien as string) as string
dim i as long

dir1.path = lien
for 1 = 0 to ubound(file1.item)
if file1.item(i) = texte then
chercher = dir1 & file1
exit function
end if
next i

for i = 0 to ubound(dir1.item)
if chercher(texte, dir1.item(i)) <> "" then
exit function
end if
next i
end function
Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
4
J'ai programmé un truc comme ça moi. Je te le passe si tu veux.

Pice-WCorp bientôt sur le net.
Messages postés
176
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
9 mai 2008

Merci beaucoup les gars !