Set sh = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
'choix du fichier
nomfich=inputbox("nom du fichier recherché ?","recherche de fichier","*.xls")
'choix du répertoire
nomrep=inputbox("nom du répertoire",,"c:\mes documents")
'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
nomrep=fs.getfolder(nomrep).shortpath
'recherche par dir
sh.Run "%comspec% /c dir " & nomrep & "\*" & nomfich & "/s/b > c:\rien.txt",0,true
'recherche du répertoire dans le fichier texte
redim fichs(0)
Set fich = fs.OpenTextFile("C:\rien.txt", 1, false)
do while not fich.atEndOfStream
txt=fich.readLine
fichs(ubound(fichs))=restaure(txt)
redim preserve fichs(ubound(fichs)+1)
loop
fich.close
fs.deletefile "c:\rien.txt"
'affichage----------------------------------------------------
fichresult="c:\rien.html"
Set fs = CreateObject("Scripting.FileSystemObject")
Set nouv_fich = fs.OpenTextFile(fichresult, 2, true)
nouv_fich.write "
Résultat de la recherche"
nouv_fich.write "
de """ & nomfich & """ dans """ & nomrep & """
(nombre de fichiers trouvés = " & ubound(fichs) & ")
"
for num=0 to ubound(fichs)-1
if fs.fileexists(fichs(num)) then
nouv_fich.write chr(10) & "
" & fichs(num) & ""
else
nouv_fich.write chr(10) & "
" & fichs(num)
end if
next
nouv_fich.write chr(10) & ""
nouv_fich.close
sh.run "iexplore " & fichresult
set sh=nothing
set fs=nothing
set fich=nothing
set nouv_fich=nothing
'------------------------------------------------------------
function restaure(txt)
txt=replace(txt,chr(138),"è")
txt=replace(txt,chr(130),"é")
txt=replace(txt,chr(147),"ô")
txt=replace(txt,chr(135),"ç")
txt=replace(txt,chr(133),"à")
txt=replace(txt,chr(150),"û")
txt=replace(txt,chr(140),"î")
restaure=txt
end function