Listing Directories Only

[Anon]

I need to be able to list ONLY directories. I have tried the following, but it still shows all directories and files.

if(!isset($BASEDIR)) { $BASEDIR = "."; }
$current_directory = opendir($BASEDIR);

print "<select name=\"dir\" size=\"1\">\n";
while ($entry_name = readdir($current_directory))
{
if(is_dir($entry_name))
{
print("<option>$entry_name</option>\n");
}
}
print("</SELECT>\n");
print("\n");

This still everything in the directory.
Any help?

Thanks

[Anon]

This worked for me:
while (($readfiles = readdir($handle))!==false)
{
$suspectedDir = "$Dir/". $readfiles;
if (@chdir($suspectedDir):
//the current dir
$Dirs[] = $readfiles;
endif;
}