dim tabl() dim tablold() redim tabl(1) tabl(0)="zaza" num=1 nbtot=0 nboct=0 nbssrep=0 Set fs = CreateObject("Scripting.FileSystemObject") 'choix du répertoire nomrep=inputbox("nom du répertoire",,"c:\mes documents") 'choix du mot recherché mot_cherch=inputbox("mot recherché ?",,"zaza") 'traiter le cas où nomrep est un disque ou un nom non valide if not fs.folderexists(nomrep) or ucase(fs.getdrivename(nomrep))=ucase(replace(nomrep,"\","")) then MsgBox "nom de répertoire non valide" wscript.quit end if tabl(1)=nomrep 'créer le fichier texte et l'ouvrir en appending fichresult="C:\liste_fichiers.html" Set nouv_fich = fs.OpenTextFile(fichresult, 2, true) nouv_fich.close Set nouv_fich = fs.OpenTextFile(fichresult, 8, false) nouv_fich.writeline("
") 'boucler sur les niveaux jusqu'à ce qu'il n'y ait 'plus de sous répertoires dans le niveau do while num>0 '------------------------------------ 'recopie tabl redim tablold(ubound(tabl)) for n=0 to ubound(tabl) tablold(n)=tabl(n) next 'réinitialiser tabl redim tabl(0) tabl(0)="zaza" 'explorer le ss répertoire for n=1 to ubound(tablold) expl(tablold(n)) 'ajoute ds le tableau tabl les ss rep de tablold(n) next loop '---------------------------------------------- nouv_fich.writeline("") nouv_fich.close set nouv_fich=nothing nboct2= int(fs.getfolder(nomrep).size/1024) set fs=nothing 'afficher le résultat 'Msgbox nbtot & " fichiers pour " & int(nboct/1024) & " ko dans """ & nomrep & """ et ses " & nbssrep & " sous-répertoires (total " & nboct2 & " ko)",,nomrep Set sh = WScript.CreateObject("WScript.Shell") sh.run "explorer " & fichresult set sh=nothing '************************************************************************* '************************************************************************* '************************************************************************* sub expl(nomfich) 'ajoute dans le tableau tabl() tous les sous répertoires de nomfich 'et ajoute dans le fichier nouv_fich les noms des fichiers et leurs caractéristiques Set rep=fs.getFolder(nomfich) num=ubound(tabl) 'parcourir les sous répertoires de nomfich for each ssrep in rep.subfolders num=num+1 redim preserve tabl(num) tabl(num)= ssrep.path nbssrep=nbssrep+1 next 'parcourir les fichiers de nomfich for each fich in rep.files nbtot=nbtot+1 nboct=nboct+fich.size 'chercher dans le fichier 'nouv_fich.writeline fich.path & " (" & int(fich.size/1024) & " ko, créé " & fich.DateCreated & ", acc " & fich.DateLastAccessed & ")" if instr(lcase(fich.name),".txt")+instr(lcase(fich.name),".htm")+instr(lcase(fich.name),".asp")+instr(lcase(fich.name),".php")>0 then Set fich_sce = fs.OpenTextFile(fich.path, 1, false) txtlu=fich_sce.readall fich_sce.close txtlu=tt(txtlu) pos=instr(lcase(txtlu),lcase(mot_cherch)) if pos>0 then nouv_fich.writeline ("