modifica nome file nelle sottocartelle

[Mr.Fabio]

ciao
ho uno script che mi verifica se all'interno di un nome di un file è presente un determinato carattere, lo sostituisce con "_"

<%
if Session("Autenticato")="admin" then
 
set fs=server.createobject("scripting.filesystemobject")
set folderfs=fs.getfolder(server.mappath("/piero/tifo nel mondo"))

for each f in folderfs.Files

    if InStr(1, f.name , "%") > 0 then
      f.name = Replace(f.name, "%", "_")
      response.write "Operazione effetuata!!
"
    else
      response.write "carattere non presente!!
"
    end if
next

set folderfs=nothing
set fs=nothing

else
Response.Redirect("../accesso_negato.asp")
end if
    
%>

i file che devo controllare sono in varie cartelle e sottocartelle varie....
il problema e che non riesco a fare in modo che il controlla avvenga anche nelle sottocartelle....