Comment rechercher des fichiers

cs_Linuss Messages postés 176 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 9 mai 2008 - 30 juin 2004 à 13:50
cs_Linuss Messages postés 176 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 9 mai 2008 - 1 juil. 2004 à 19:54
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

cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 6
30 juin 2004 à 14:24
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
0
Scalpweb Messages postés 1467 Date d'inscription samedi 13 mars 2004 Statut Membre Dernière intervention 5 mai 2010 4
1 juil. 2004 à 11:57
J'ai programmé un truc comme ça moi. Je te le passe si tu veux.

Pice-WCorp bientôt sur le net.
0
cs_Linuss Messages postés 176 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 9 mai 2008
1 juil. 2004 à 19:54
Merci beaucoup les gars !
0