cs_Linuss
Messages postés176Date d'inscriptionmardi 7 octobre 2003StatutMembreDernière intervention 9 mai 2008
-
30 juin 2004 à 13:50
cs_Linuss
Messages postés176Date d'inscriptionmardi 7 octobre 2003StatutMembreDerniè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.
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 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