مساعدة في عرض اسماء المجلدات

[net man]

هل استطيع كتابة اسماء جميع المجدات و جميع الملفات اي مثل تعليمة dir في الدوس

[selmah]

<?

$FolderName = dir("./");
while (false !== ($Files = $FolderName->read())) {
     if ($Files=='.' OR $Files=='..') continue;
    if(is_dir($Files))
        $DirArray[] = $Files;
        else
        $FilesArray[]=$Files;
}
$FolderName->close();

if(is_array($DirArray)){
    sort($DirArray);
    foreach($DirArray as $DirName) echo "<b>[$DirName]</b><br>\n";
}    
if(is_array($FilesArray)){
    sort($FilesArray);
    foreach($FilesArray as $FilesName) echo "<i>$FilesName</i><br>\n";
}
?>