Listar diretório em um select

[JonasFloripa]

Olá pessoal..

Estou com um probleminha e gostaria de uma ajuda..

Tenho um cadastro de arquivos que será armazenado dentro de um determinado diretório da minha escola.

Essa lista de diretório é montado List/Menu. Eu pequei um exemplo aqui no forum mas ele só mostra o último diretorio se eu tirar o while do select, como está abaixo não lista nada.

alguém pode me dizer o erro?

<?php
    // pega o endereço do diretório
    $diretorio = $objT->getPath(14)."$matricula"; 
    // abre o diretório
    $ponteiro  = opendir($diretorio);
    // monta os vetores com os itens encontrados na pasta
    while ($nome_itens = readdir($ponteiro)) {
        $itens[] = $nome_itens;
    }
    // ordena o vetor de itens
    sort($itens);
    // percorre o vetor para fazer a separacao entre arquivos e pastas 
    foreach ($itens as $listar) {
    // retira "./" e "../" para que retorne apenas pastas e arquivos   
        if ($listar!="." && $listar!=".."){
    // checa se o tipo de arquivo encontrado é uma pasta           
            if (is_dir($listar)) { 
    // caso VERDADEIRO adiciona o item à variável de pastas            
                $pastas[]=$listar; 
            }else{ 
    // caso FALSO adiciona o item à variável de arquivos            
                $arquivos[]=$listar;
            }
        }
    }
    // lista as pastas se houverem
    echo'Pa:'.$pastas;
    ?>
    
   <select name="diretorio">
    <?php
        // lista as pastas se houverem
        while ($pastas != "" ) {
            foreach($pastas as $listar)
           {  ?>
              <option value="<?php echo $listar; ?>"><?php echo $listar;?></option>
    <?php
            }  
       }
    ?>
    </select>