\
\
\
\
\
\
\'ca\'ca\'ca\'caTaille de l'arborescence\
\
\cf2 \cf0 \
\
Code source
\
\
\cf2 \cf2 5\cf4 )\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'careturn \cf2 0\cf4 ;\cf0 \
\cf4 \'ca\'ca\'ca\'ca\cf0 \
\cf4 \'ca\'ca\'ca\'caprint \cf5 "
\\n"\cf4 ;\cf0 \
\
\cf4 \'ca\'ca\'ca\'ca\cf2 $mydir \cf4 = @\cf2 opendir\cf4 (\cf2
$maindir\cf4 ) ;\cf0 \
\cf4 \'ca\'ca\'ca\'cawhile(\cf2 $fn \cf4 = @\cf2 readdir\cf4 (\cf2
$mydir\cf4 ))\cf0 \
\cf4 \'ca\'ca\'ca\'ca\{\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'caif(!\cf2 in_array\cf4 (\cf2
$fn\cf4 , Array(\cf5 ".."\cf4 , \cf5 "."\cf4 )))\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\{\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'caif(\cf2 is_dir\cf4
(\cf5 "$maindir/$fn"\cf4 ))\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\{\cf0 \
\cf4
\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'caprint
\cf5 "- $maindir/$fn :
\cf4 \\n\cf5 "\cf4 ;\cf0 \
\cf4
\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\cf2
$size\cf4 +=\cf2 dirsize\cf4 (\cf5 "$maindir/$fn"\cf4 , (\cf2 $level
\cf4 + \cf2 1\cf4 ));\cf0 \
\cf4
\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'caprint
\cf5 "
\\n"\cf4 ;\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\}\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'caelse\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\{\cf0 \
\cf4
\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\cf2
$size\cf4 +=@\cf2 filesize\cf4 (\cf5 "$maindir/$fn"\cf4 );\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\}\cf0 \
\cf4 \'ca\'ca\'ca\'ca\'ca\'ca\'ca\'ca\}\cf0 \
\cf4 \'ca\'ca\'ca\'ca\}\cf0 \
\cf4 \'ca\'ca\'ca\'ca@\cf2 closedir\cf4 (\cf2 $mydir\cf4 );\cf0 \
\
\cf4 \'ca\'ca\'ca\'ca\cf3 # on calcule la taille en Mo\cf0 \
\cf3 \'ca\'ca\'ca\'ca\cf2 $sizem \cf4 = (int) ((\cf2 $size\cf4 /\cf2
1024\cf4 )/\cf2 1024\cf4 );\cf0 \
\
\cf4 \'ca\'ca\'ca\'caprint \cf5 "- Total : $size ($sizem Mo)
\cf4 \\n\cf5 "\cf4 ;\cf0 \
\cf4 \'ca\'ca\'ca\'caprint \cf5 "
\\n"\cf4 ;\cf0 \
\cf4 \'ca\'ca\'ca\'careturn \cf2 $size\cf4 ;\cf0 \
\cf4 \}\cf0 \
\cf2 ?>\cf0 \
\
\
\
}