<?php
// ------------------------------------------------------------------------- //
// Liste répertoire et sous-répertoire //
// ------------------------------------------------------------------------- //
// Auteur: CILLIER Christophe <c.cillier@snpe.com> //
// Web: //
// ------------------------------------------------------------------------- //
/*
Modification du script de François BAUD de ce site :
http://www.phpinfo.net/?p=prog&rub=scripts&id=82&src=1
Evolution : correction de certains petits bugs, notamment si un répertoire
contient des fichiers et des répertoires certains fichiers n'étaient pas affichés
dans le bon répertoire.
De plus maintenant repertoires et fichiers sont par ordre alphabetique.
*/
$VAL = 0;
function space ($VAL)
{
for ($i = 0 ; $i <= $VAL ; $i++)
{
print ("\t") ;
}
}
function recurse_dir ($DIR, $CORE)
{
global $VAL ;
space ($VAL) ;
global $Arrayrep;
global $urllook;
$urllooklong=strlen ( $urllook);
//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) ;
$fullurl=$DIR."/".$FILE;
$Arrayrep[]= $fullurl;
//print $DIR." / ".$FILE."<br>";
$VAL-- ;
}
else
{
space ($VAL+1) ;
if (substr($FILE,0,4)=="thm_") {
//print ($DIR." - ".$FILE."<BR>") ;
}
}
}
}
}
else
{
printf ("Unable to open directory") ;
}
}
//url
$urllook="bibliotheque/ok";
//recurse_dir(getcwd(), $urllook) ;
recurse_dir($urllook, "") ;
print "<br><br><br>";
sort($Arrayrep);
$Max = count($Arrayrep);
for($i = 0; $i <$Max; $i++)
{
$urll=$Arrayrep[$i];
print "<b>".$urll."</b><br>";
$array = "";
if(!file_exists($urll))
{
print "BLEME<br>";
}
else
{
$handle=opendir($urll);
while($fichier=readdir($handle))
{
if($fichier!="." && $fichier!=".." )
{
$array[] = "$fichier";
}
}
closedir($handle);
if ($array!="") {
sort($array);
$max = count($array);
print $max."<br>";
for($ii = 0; $ii <$max; $ii++)
{
$fichierr=$array[$ii];
print $fichierr."<br>";
}
}
}
// fin
}
?>