Nome De Subpastas

[Manwë Súlimo]

Ola pessoal

gostaria de saber se é possivel pegar os nomes das subpastas listadas num dirlistbox...

por exemplo

num filelistbox eu consigo saber o nome do arquivo com um filename, não teria uma coisa parecida para pegar o subdiretorio?????

espero que alguém possa me ajude..!

até mais

[Decio]

Não seria usar o .Path ???

Dai bastaria você separar as informações que lhe interessa.

[Manwë Súlimo]

Não,

o path define o diretorio, por exemplo

dir.path ="C:\Meus Documentos" isso exibe meus documentos, agora imagina que tenha dentro de meu documentos as seguintes pastas

Minhas Musicas

Minhas Figuras

eu quero poder ler esses nomes indicando apenas C:\Meus Documentos

e ele buscasse as subpastas

saber as quantidades de subpastas é facil, é só por um dir.listcount

e tem o listindex e/ou index que pode selecionar o index da pasta selecionada, talvez, mas eu queria também poder saber o nome do determinado index...

será q dá??

[Decio]

Acho que você vai ter que usar o FileSystemObject, dá uma olhada aqui mesmo no fórum que já foi dito muito a respeito.

Um abraço.

[Graymalkin]

Não sei se vai servir para o seu caso, mas com o código abaixo é possível obter todas as pastas dentro de uma determinada pasta:

    pastainicial = "c:\temp\"
    pasta = Dir(pastainicial, vbDirectory)
    Do While pasta <> ""
        If GetAttr(pastainicial & pasta) And vbDirectory Then
            Debug.Print pastainicial & pasta
        End If
        pasta = Dir
    Loop

No exemplo acima, coloquei o caminho para aparecer na janela Immediate, mas você pode fazer o que quiser com ele.

Abraços,

Graymalkin

[Manwë Súlimo]

Muito obrigado, pegou mesmo o nome de todas as subpastas, o resto eu me viro,

mas o que faz o GetAttr, o Dir e o vbDirectory

até

[Graymalkin]

Dir() retorna arquivos e pastas de uma pasta ou retorna o próprio nome de arquivo informado (para saber se o mesmo existe ou não). GetAttr() pega os atributos de uma pasta ou arquivo e vbDirectory é uma constante que é usada na operação com o resultado de GetAttr().

Abraços,

Graymalkin

[ZancoNet]

Estou tentando usar o GetAttr(PathAndName). PathAndName declarada como String. Quando o string atribuído para PathAndName tem mais que 251 caracteres dá erro. Como contornar este problema?  É uma limitação de GetAttr?

Obrigado

Zanco.