Alguien me puede pasar esto de ASP a PHP?

[lanceusp]

Conozco poco ASP, a ver si alguien que lo controla me puede ayudar:

Código PHP:

 <% 
' intentamos evitar la caché del navegador -------------- 
Response.Expires=0 
Response.CacheControl="private" 
' ---------------------------------------------------------------- 
Response.ContentType="text/XML" 
'Creamos el objeto FileSystemObject 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
' elegimos la carpeta files desde la raiz del servidor web 
' sustituir "/files/" por la que os interese 
Set folder = fso.GetFolder(Server.MapPath(("/minis/"))) 
Set files = folder.Files ' 
' construimos el XML ---------------------------------------- 
Response.Write("<?xml version='1.0' ?><exploracion carpeta='"+folder.Name+"'>") 
For Each file in files 
fil=file.Name 
Response.write("<archivo nombre='") 
Response.write(file.Name) 
Response.write("' size='") 
Response.write(file.size\1024) 
Response.Write("' />") 
Next 
Response.Write("</exploracion>") 
' ---------------------------------------------------------------- 
Set files = nothing 
Set folder = nothing 
Set fso = nothing 
%>  

[tulises16]

seria algo como esto, aunque faltaria pulirlo sobre todo los tamaños segun mb, gb, kb etc.

Código PHP:

  <?
header('Cache-Control: private');
$dir="C:\Inetpub\wwwroot";
$folder = opendir($dir);
//construimos el XML ----------------------------------------
echo "<?xml version='1.0' ?>\n";
echo "<exploracion carpeta='".$dir."'>\n";
while ($archivo = readdir($folder))
{
    if($archivo !== '.' && $archivo !== '..')
    {
        echo "    <archivo nombre='";
        echo $archivo;
        echo "' size='";
        echo number_format(filesize($dir.'/'.$archivo)/1024,2,'.',',')." MB";
        echo "' />\n";
    }
}
echo "</exploracion>\n";
?>   

[lanceusp]

Gracias crack. Lo probaré más tarde.

[GatorV]

Tema trasladado a ASP.

[lanceusp]

Muchas Gracias!