function GeneraDirectorio($dir,$str){
if (is_dir($dir))
{
if ($gd = opendir($dir))
{
while (($archivo = readdir($gd)) !== false)
{
if ($archivo != “.” & $archivo != “..” & $archivo != “list.php”)
{
if (is_dir($archivo))
{
$str.= $archivo\n”;
//LLAMAMOS A LA MISMA FUNCIÓN
$str = GeneraDirectorio($archivo, $str.)
}
else
{
$str .= ” $archivo\n”;
}
}
}
closedir($gd);
}
}
return $str;
}

function GeneraDirectorio($dir,$str){
if (is_dir($dir))
{
if ($gd = opendir($dir))
{
while (($archivo = readdir($gd)) !== false)
{
if ($archivo != “.” & $archivo != “..” & $archivo != “list.php”)
{
if (is_dir($archivo))
{
$str.= $archivo\n”;
//LLAMAMOS A LA MISMA FUNCIÓN
$str = GeneraDirectorio($archivo, $str.)
}
else
{
$str .= ” $archivo\n”;
}
}
}
closedir($gd);
}
}
}

Saludos

Vale la pena reemplazar los caracteres que pueden tener problemas en un xml, es decir:

function ReemEntidadesXML($string){
return strtr($string,array(
‘&’ => ‘&’,
‘>’ => ‘>’,
‘ ‘<’,
‘”‘ => ‘"’,
‘\” => ‘'’ ));
}

y por si tienen acentos o Ñ también vale la pena ponerle un
$archivo = utf8_encode(ReemEntidadesXML($archivo));