Statistiques sur les fichiers du répertoire " ;
echo " $dirbase
" ;
#########################################################
function dirstat($nomdir) {
# calcule le nb de fichiers dans le répertoire
$d = dir($nomdir) ;
$nbf = 0 ;
while ($entry=$d->read()) {
$nbf = $nbf +1 ;
} ; # fin tant que
$d->close() ;
return $nbf-2 ;
} # fin fonction dirstat
#########################################################
echo " " ;
$cdir = $dirbase ;
$nbf = dirstat($cdir) ;
echo "| racine" ;
echo " | $nbf |
" ;
$ldir = "Adresses/" ;
$cdir = $dirbase.$ldir ;
$nbf = dirstat($cdir) ;
echo "| $ldir" ;
echo " | $nbf |
" ;
$ldir = "Archivadr/" ;
$cdir = $dirbase.$ldir ;
$nbf = dirstat($cdir) ;
echo "| $ldir" ;
echo " | $nbf |
" ;
echo "
" ;
?>