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("nom (ou partie du nom) du fichier recherché ?",,".xls")
'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.write "
Résultat de la recherche"
nouv_fich.write "
de """ & mot_cherch & """ dans """ & nomrep & """
"
'boucler sur les niveaux jusqu'à ce qu'il n'y ait
'plus de sous répertoires dans le niveau
nbfich=0
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 "
(nombre de fichiers = " & nbfich & ")"
nouv_fich.writeline("")
nouv_fich.close
set nouv_fich=nothing
nboct2= int(fs.getfolder(nomrep).size/1024)
set fs=nothing
Set sh = WScript.CreateObject("WScript.Shell")
sh.run "iexplore " & 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
if instr(lcase(fich.name),lcase(mot_cherch))>0 then
nbfich=nbfich+1
nouv_fich.writeline ("
" & fich.path & "")
end if
next
set rep=nothing
end sub