<?
$dir=dir("./");
print "Pwd:".realpath($dir->path)."<br>\n";
while(False!==($entry=$dir->read())) {
if(is_dir(realpath($dir->path).'/'.$entry)) {
echo " d[".$entry."]".(is_writable(realpath($dir->path).'/'.$entry)?'[W]':'')."<br>\n";
} else {
echo $entry.(is_writable(realpath($dir->path).'/'.$entry)?'[W]':'')."<br>\n";
}
}
$dir->close();
?>