Código PHP:
<?
$limpiar1 = fopen("paso1.tmp", "w+");
$fwlimp1 = fwrite($limpiar1, "");
fclose($limpiar1);
$limpiar = fopen("paso2.tmp", "w+");
$fwlimp = fwrite($limpiar, "");
fclose($limpiar);
function abrircarpeta($dir){
$rep=opendir($dir.'\.');
while ($file = readdir($rep)) {
if($file != '..' && $file !='.' && $file !=''){
if(filetype($dir."\\".$file) == "dir"){
$save .= "$file|0|\n";
}else{
$print .= "$file|$dir|\n";
}
}
}
closedir($rep);
clearstatcache();
$fp = fopen("paso1.tmp", "a+");
$fw = fwrite($fp, $save);
fclose($fp);
$fp2 = fopen("paso2.tmp", "a+");
$fw2 = fwrite($fp2, $print);
fclose($fp2);
return 1;
}
$inidir = "D:";
abrircarpeta($inidir);
$end = 1;
while($end){
$contar = 0;
$archivo = "paso1.tmp";
$data = file($archivo);
foreach($data as $co){
$sub = explode("|", $co);
if($sub[1] == 0){
abrircarpeta($inidir."\\".$sub[0]);
$sub[1] = 1;$contar = 1;
}
$guardar .= "$sub[0]|$sub[1]|\n";
}
$fp = fopen($archivo, "w+");
flock($fp,2);
$fw = fwrite($fp, $guardar);
fclose($fp);
if($contar == 0){
$end = 0;
}
}
echo "<h1>$inidir</h1>";
echo "<table border=1>";
$archivo = "paso2.tmp";
$data = file($archivo);
foreach($data as $coo){
$sub = explode("|", $coo);
echo "<tr><td><font size=1 face=verdana>$sub[0]</font></td><td><font size=1 face=verdana>$sub[1]</font></td><td>".substr($sub[0], -4)."</td></tr>\n";
}
echo "</table>";
?>