Pesquisar na Comunidade

Olá pessoal, sou novo no forum e se por acaso abrir o tópico no local errado me perdoe. estou tentando fazer um select no php que vai listar os diretorios e subdiretorios do usuario sem o select ele funciona mas ao colocar o select buga tudo. codigo original <?php $raiz = '/var/www/html/listagem/'; function Show_files($local){ if(is_dir($local)){ $open = opendir($local); while($folder = readdir($open)){ if(is_dir($local.$folder) && $folder != '.' && $folder != '..'){ echo ''.$local.$folder.'/'; echo '<br/>'; Show_files($local.$folder.'/'); } } } } Show_files($raiz); ?> a maneira no qual tentei o select <?php $raiz = '/var/www/html/listagem/'; function Show_files($local){ if(is_dir($local)){ echo '<ul>'; $open = opendir($local); while($folder = readdir($open)){ if(is_dir($local.$folder) && $folder != '.' && $folder != '..'){ Show_files($local.$folder.'/'); echo '</ul></li>'; $filesarr = $local.$folder; $pastas[]=$filesarr; } } $filesarr = array(); echo " <form name='form1' method='post' action=''> "; echo " <select name='local' id='local' style='width:%' class='select' > " ; foreach($pastas as $linguagem) { echo "<option name='$linguagem'>$linguagem</option>"; } echo "</select>"; echo " <br/><br/><input type='submit' value=' PEGAR PASTA ' class='botao_grande' /> </form> "; } } Show_files($raiz); ?>

Olá pessoal, acontece o seguinte. Estou criando um sistema automático que ao ser executado ele vai ler todas os diretórios que estão dentro de um diretório específico e depois vai criar uma pasta com o nome do computador local e criar dentro desta nova pasta um arquivo txt com a lista de nomes das pastas encontrada. Preciso que este sistema fique totalmente automatizado e estou tendo o seguinte problema. Se eu digitar todos os locais Funciona que é uma beleza. O arquivo txt é criado com os nomes das pastas linh por linha. veja o código: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Dir("C:\Computadores\NomeDoPC") = "" Then 'Se o diretório C:Computadores\NomeDoPC não existe, então My.Computer.FileSystem.CreateDirectory("C:\Computadores\NomeDoPC") 'Crie o diretório C:\Computadores\NomeDoPC My.Computer.FileSystem.WriteAllText("C:\Computadores\\NomeDoPC\FileList.txt", "PC", True) 'Crie o arquivo C:\Computadores\NomeDoPC\FileList.txt End If 'Fim se My.Computer.FileSystem.DeleteFile("C:\Computadores\NomeDoPC\FileList.txt") 'Delete o arquivo C:\Computadores\NomeDoPC\FileList.txt For Each foundFile As String In My.Computer.FileSystem.GetDirectories("C:\Projetos\") 'Leia os diretórios existentes em C:\Projetos\ foundFile = foundFile & vbCrLf My.Computer.FileSystem.WriteAllText("C:\Computadores\NomeDoPC\FileList.txt", foundFile, True) 'Crie o arquivo C:\Computadores\NomeDoPC\FileList.txt com as pastas encontradas Next Me.Close() End Sub Mas se fizer o mesmo código pra funcionar com variáveis, o arquivo txt é criado escrito tudo em uma linha só. Veja o cógido: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Nome As String Dim Arq As String Nome = ("C:\Computadores\") + AxWinsock1.LocalHostName 'Se o diretório C:Computadores\Nome do PC não existe, então Arq = Nome + ("\FileList.txt") 'Arq = 'C:Computadores\NomedoPC\FileList.txt If Dir(Nome) = "" Then 'Se o diretório C:Computadores\NomeDoPC não existe, então My.Computer.FileSystem.CreateDirectory(Nome) 'Crie o diretório C:\Computadores\NomeDoPC My.Computer.FileSystem.WriteAllText(Arq, AxWinsock1.LocalHostName, True) 'Crie o arquivo C:\Computadores\NomeDoPC\FileList.txt End If 'Fim se My.Computer.FileSystem.DeleteFile(Arq) 'Delete o arquivo C:\Computadores\NomeDoPC\FileList.txt For Each foundFile As String In My.Computer.FileSystem.GetDirectories("C:\Projetos\") 'Leia os diretórios existentes em C:\Projetos\ My.Computer.FileSystem.WriteAllText(Arq, foundFile, True) 'Crie o arquivo C:\Computadores\NomeDoPC\FileList.txt com as pastas encontradas Next Me.Close() End Sub Como resolvo isso?

É o seguinte, estou tentando desenvolver um programinha simples em C que, através das bibliotecas ncurses.h, menu.h e dirent.h listaria os arquivos de um diretório. Acontece que o programa compila, mas ao executar dá Segmentation Fault. Então chamei o gdb pra ver onde estava o erro e ele apontou para a linha 38. Segue o código: #include <dirent.h> #include <ncurses.h> #include <menu.h> #include <string.h> #include <stdlib.h> #define ARRAY_SIZE(a) (sizeof(a) / sizeof(a[0])) #define CTRLD 4 int main(int argc, char *argv[]) { char *choices; ITEM **items; int c; MENU *menu; int n_choices, i; ITEM *cur_item; initscr(); cbreak(); noecho(); keypad(stdscr, TRUE); DIR *d; struct dirent *dir; d = opendir("/home/tulio"); int b=0, k; if (d) { while((dir = readdir(d)) != NULL) { choices[b] = *dir->d_name; <---------------------------- ERRO b++; } items[n_choices] = (ITEM *)NULL; closedir(d); items = (ITEM **)calloc(n_choices+1, sizeof(ITEM *)); n_choices = ARRAY_SIZE(choices); for(k=0; n_choices; k++) { items[k] = new_item(&choices[k], ""); } menu = new_menu((ITEM **)items); menu = new_menu((ITEM **)items); mvprintw(LINES - 2, 0, "F1 to exit"); post_menu(menu); refresh(); int key; while((key = getch()) != KEY_F(1)) { switch(key) { case KEY_DOWN: menu_driver(menu, REQ_DOWN_ITEM); break; case KEY_UP : menu_driver(menu, REQ_UP_ITEM); break; } } } free_item(items[0]); free_item(items[1]); free_menu(menu); endwin(); } Alguém pode me explicar o que fiz errado? A princípio achava que poderia ser algum problema com ponteiros, mas ao testar a listagem de diretórios em um arquivo .c isolado, sem ncurses e só com printf, compilou e rodou direitinho. Obrigado.