QUANTIDADE DE PASTAS

USUARIO.EXCLUIDOS 01/08/2007 11:30:30
#228756
Queria saber como posso fazer para ler a quantidade de pastas existentes dentro de uma outra pasta, por exempo "c:    este" quero saber a quantidade de pastas existentes dentro da pasta teste.
Alguem pode me ajudar?
USUARIO.EXCLUIDOS 01/08/2007 11:57:26
#228772

vc ta usando um objeto DirListBox?

se tiver, é só digitar

Label1 = Dir1.ListCount

Se não tiver..basta inserir um no form, deixá-lo oculto e colocar esses código no Load do Form

Dir1.Path = "C:\Teste"
Label1 = Dir1.ListCount


Boa sorte e sucesso
USUARIO.EXCLUIDOS 01/08/2007 12:26:39
#228784 Resposta escolhida
Adicione a seguinte referência no seu projeto:
"Microsoft Scripting Runtime"


para adicionar a referência acesso Project >>> References.


Segue o código
    Dim fso As New FileSystemObject
    Dim Pasta As Folder
    Set Pasta = a.GetFolder("Caminho")
    
    
    MsgBox "Quantidade de pastas: " & Pasta.SubFolders.Count
USUARIO.EXCLUIDOS 01/08/2007 12:46:21
#228789
Ops... Corrigindo o código que eu postei.


    Dim fso As New FileSystemObject
    Dim Pasta As Folder
    Set Pasta = fso .GetFolder("Caminho")
    
    
    MsgBox "Quantidade de pastas: " & Pasta.SubFolders.Count
Tópico encerrado , respostas não são mais permitidas
Voltar