VBA - Como contar qtd de arquivos dentro de diretórios no Excel

Mensagens : 2 Data de inscrição : 05/06/2015

Colegas, preciso de ajuda.
Preciso listar em uma planilha o nome da pasta e a quantidade de arquivos que tem nessa pasta, incluindo os subdiretorios. São várias pastas e subpastas. Como sou iniciante em VBA peço a ajua de todos com o código.

Exemplo:

Quero saber a quantidade de arquivos que estão dentro da pasta c:\teste e seus subdiretórios. Ai o excel te que gerar na coluna A o nome da pasta e na coluna B a quantiade de arquivos.

Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES

Bom dia!!

Código:: Sub AleVBA_1046()

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim ws As Worksheet

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = Worksheets.Add

Set objFolder = objFSO.GetFolder("C:\Users\alexandre.goncalves\Downloads\PlanModelos\")
ws.Cells(1, 1).Value = "Arquivos encontrados " & objFolder.Name & "em:"

For Each objFile In objFolder.Files
ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
Next

Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing

End Sub

Att

Mensagens : 2 Data de inscrição : 05/06/2015

alexandrevba escreveu:

Bom dia!!

Código:: Sub AleVBA_1046()

   Dim objFSO As Object
   Dim objFolder As Object
   Dim objFile As Object
   Dim ws As Worksheet

   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set ws = Worksheets.Add

   Set objFolder = objFSO.GetFolder("C:\Users\alexandre.goncalves\Downloads\PlanModelos")
   ws.Cells(1, 1).Value = "Arquivos encontrados " & objFolder.Name & "em:"

   For Each objFile In objFolder.Files
   ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
   Next

   Set objFolder = Nothing
   Set objFile = Nothing
   Set objFSO = Nothing

End Sub

Att

Colega desculpa minha ignorancia mas não consegui rodar esse código. Tem como detalhar mais por favor.

» Contar nome repetido dentro do mês e ano
» Exportar multiplos arquivos de txt para guia Excel-VBA
» formatar celula como hora dentro de uma listview vba
» Como copiar dado de uma celula para dentro de uma formula?
» Como Contar uma variável entre dua datas