readdir che resituisce solo cartelle

[Roverandom]

Ho bisogno di uno script che mi mostri solo le sottocartelle presenti in una determinata directory, ma non mi faccia vedere eventuali altri files.

// percorso della directory da leggere
$directory = "/path/";

// apriamo la directory
$open_handle = opendir($directory);

// impostiamo un ciclo while() per scorrere tutto il contenuto
while( $read = readdir($open_handle) ) 
  {
    if( ($read != ".") && 
        ($read != "..") &&
// verifichiamo che non si tratti di files (se hanno le estensioni non lo metto)
        ( (!substr($read, -4, 1) == ".") || (!substr($read, -5, 1) == ".") )
      ) 
      {echo $read . "
\n";}
  }

closedir($open_handle); 

Così mi mostra solo due delle cartelle effettivamente presenti, quelle che hanno nomi di tre lettere. Le altre due, che hanno nomi di 5 e 15 caratteri, non me li mostra.

Dov'è che sbaglio?