Pastas no TreeView

Question

Ol� povo...
Pesquisei no forum e nao encontrei a solu��o, por isso coloco aki minha duvida:
Preciso colocar em um TreeView as sub pastas de um diretorio...
Por exemplo dentro de C: tem as pasta A, B, C quero que o treeView carregue A, B, C

Mas tudo em run time. Alguma dica?
[]s

Leonardo

Gabriela · Answer

Existe um componente shelltreeview (na delphi 7 fica na aba samples), que funciona como o explorer, mostra as pastas do computador (de repente ele serve para o q vc quer). Vc pode configurar para ele qual a pasta que vai ser a raiz da treeview na propriedade root.

Ou ent�o (se a solu��o acima nao servir) vc pode usar um procedimento de varredura de pastas, para ir inserindo na tree view, eu tenho um assim aqui:

//Busca todos os sub-diretorios dentro da pasta strNomeDir e insere eles como filho em pai
procedure BuscaSubDiretorios(strNomeDir: String;
  Pai: TTreeNode);
var
  sr: TSearchRec;
  FileAttrs: Integer;
  strNome: String;
begin
  try
  FileAttrs := faDirectory;
  strNome := strNomeDir;
  while strNome[Length(strNome)] = �\� do
    strNome := copy(strNome,1,length(strNome) - 1);
  if strNome[Length(strNome)] <> �:� then
    strNome := ExtractFileName(strNome)
  else
    strNome := copy(strNome,1,length(strNome) - 1);
  Pai := tvwEstrutura.Items.AddChild(Pai,strNome);
  if FindFirst(strNomeDir + �*.*�, FileAttrs, sr) = 0 then
    begin
      repeat
        if (sr.Name <> �.�) and (sr.Name <> �..�) and
        ((sr.Attr > 15) and (sr.Attr < 32)) then   //verifica se o arquivo encontrado � uma pasta
        begin
          BuscaSubDiretorios(strNomeDir + sr.Name + �\�,Pai);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  except
    MessageDlg(�Debug: Erro no procedimento BuscaSubDiretorios�,mtError,[mbOk],0);
  end;
end;

Espero ter ajudado.

Abra�os, Gabriela.

Pleonardomv · Answer

Gabriela, isto � tudo que queria, mas t� dando um erro na linha

 Pai := tvwEstrutura.Items.AddChild(Pai,strNome);

porque?

Procurei e nao encontrei.

Deus lhe pague

Gabriela · Answer

Bom, � dificil dizer, pq eu uso ele num programa e funciona direito, sem erros...

o que vc esta passando como parametro no pai? De repente pode ser isso... vc tem que passar um n� ja existente na sua treeview.

Pleonardomv · Answer

Pode ser isso sim. Me fala uma coisa: Como vc chama a fun��o?...

Gabriela · Answer

[code:1:e4434c0af9]m_pvtBuscaSubDiretorios(strNome + ��,tvwEstrutura.Selected);[/code:1:e4434c0af9]Onde strNome � o caminho da pasta que quero. Ex: �C:arquivo de programas�.N�o testei  o que acontece se n�o existir nenhum n� selecionado na treeview.Acabei de perceber qual deve ser o erro. Tanto na chamada, quando dentro do procedimento ( na linha do erro), eu me refiro a minha treeview: tvwEstrutura .... vc tem que substituir pelo nome da sua treeview. Acho q deve resolver....

Pleonardomv · Answer

Era isso mesmo....   Funcionou bakana.Sucesso sempre...[]sLeonardo...