<?php

// ------------------------------------------------------------------------- //
// Contenu récursif d'un dossier                                             //
// ------------------------------------------------------------------------- //
// Auteur: François BAUD                                                     //
// Email:  Hazzel_Thorn@hotmail.com                                          //
// Web:                                                                      //
// ------------------------------------------------------------------------- //

$VAL = 0;

function
space ($VAL)
{
    for (
$i = 0 ; $i <= $VAL ; $i++)
    {
        print (
"\t") ;
    }
}

function
recurse_dir ($DIR, $CORE)
{
    global
$VAL ;
    
space ($VAL) ;

    
printf ("<B>%s</B><BR>", $CORE) ;

    if (
$ODIR = opendir($DIR))
    {
        while (
$FILE = readdir($ODIR))
        {
            if ( (
$FILE != ".") && ($FILE != "..") )
            {
                
$TMP = $DIR."/".$FILE ;
                if (
is_dir($TMP))
                {
                    
$VAL++ ;
                    
recurse_dir ($TMP, $FILE) ;
                    
$VAL-- ;
                }
                else
                {
                    
space ($VAL+1) ;
                    
printf ("%s - Size: %s<BR>", $FILE, filesize ($TMP)) ;
                }
            }
        }
    }
    else
    {
        
printf ("Unable to open directory") ;
    }
}

recurse_dir(getcwd(), "/") ;

?>