none
Listar pastas, subpastas e arquivos na forma de tree view RRS feed

  • Pergunta

  • Estou tentando achar uma forma do excel listar todas as pastas, subpastas e arquivos de um diretório na forma de tree view! 

    E se for possível, queria saber se tem como deixar o nome do arquivo como um atalho que ao clicar no nome, o arquivo seja aberto

    Muito obrigada

    sexta-feira, 28 de julho de 2017 16:37

Todas as Respostas

  • Este código é parecido com VB, talvez você ou alguém do fórum possa traduzi-lo:

    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;


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 sábado, 29 de julho de 2017 10:59
    sábado, 29 de julho de 2017 10:59
    • Sugerido como Resposta AndersonFDiniz2 sábado, 29 de julho de 2017 11:07
    sábado, 29 de julho de 2017 11:01