Problema a scorrere cartelle e sottocartelle

[DKiller92]

Salve ragazzi, sto scrivendo uno script che scorra tutte le cartelle e sottocartelle della root principale e mi restituisca l'elenco dei file...però mi sorge un problema...perchè mi scorre solo le cartelle della root e non le loro sottocartelle ?

vi posto il codice cosi potete capire meglio:

function dirscanner($ind) {
global $ext_to_infect;
global $cartelle;
    
$current_directory = array();

$handle = opendir($ind);

while($object = readdir($handle)) {
if(is_dir($object) && $object!=".." && $object!=".") {
$cartelle[] = $ind."/".$object;
$current_directory[] = $ind."/".$object;
  }
}
closedir($handle);

foreach($current_directory as $key => $value) {
        $punt = opendir($value);
        while($file = readdir($punt)) {
        $val = $value."/".$file;
        if(is_file($val)) {
        $extension = substr($file, strrpos($file, "."));
        if(in_array($extension, $ext_to_infect)) {
        echo $file."
";
          }
         }
         elseif(is_dir($val) && substr($val, strrpos($val, "/")+1)!=".." && substr($val, strrpos($val, "/")+1)!=".") {
                 $cartelle[] = $val;
         dirscanner($val);
         }
        }
closedir($punt);
}
unset($current_directory);

return;
}//FINE FUNCTION DIRSCANNER 

l'array $ext_to_infect è un array che contiene delle estensioni

Grazie mille in anticipo!

[Samleo]

Ciao prova con questa:

function filesInDir($tdir)
{
$dirs = scandir($tdir);
foreach($dirs as $file) {
if (($file == '.') || ($file == '..')) { }
elseif (is_dir($tdir.'/'.$file)) { filesInDir($tdir.'/'.$file); }
else { echo substr($file,0,strlen($file)-4)."\n"; } }
}