Bonjour,
Je viens de passer sous XP et je remarque une anomalie dans l'outil de recherche de l'explorateur : rechercher les fichiers qui contiennent un certain texte quelque soit les extentions (XP ne recherche que dans un nombre limité d'extention et ignore les autres fichiers exemple si "TOTO" est inscrit dans 2 fichiers : fic.txt et fic.imp XP ne renvoi que fic.txt !!!)
existe-t-il un moyen par API pas trop compliquer pour recréer un outil de recherche plus complet ?
J'ai testé ce petit programme, mais il est lourd et très lent et ne gère pas les sous-répertoires :
public colfic as new collection ' liste des fichiers trouvés
sub FilRech(chemin as string, strRech as string)
' chemin répertoire de recherche
' strRech chaine à rechercher
dim fic as string
dim ligne as string
fic=dir(chemin+"*.*")
while fic<>""
open chemin+fic for binary as #1
do
ligne=string(1024," ")
get #1,,ligne
if instr(ligne,strRech)>0 then
colfic.add chemin+fic
exit do
end if
loop until eof(1)
close #1
fic=dir()
wend
end sub
Merci d'avance
cordialement
ACT