Сканер директорий и файлов pdf, который генерировал бы удобный отчет - VB

Формулировка задачи:

нужно сделать сканер директорий и файлов pdf, который генерировал бы удобный отчет пример состоит в следующем: -> dir_home содержит: 159 поддиректорий, содержащих 14583 страниц pdf --> dir_1, всего: 5 файлов, 237 страниц ---- test1.pdf | 20 страниц ---- test2.pdf | 2 страниц ---- test3.pdf | 200 страниц ---- test4.pdf | 14 страниц ---- test5.pdf | 1 страниц --> dir_2, всего: 1 файлов, 12 страниц ---- test1.pdf | 12 страниц ---- ... и т.д. подскажите как это реализовать? =)

Решение задачи: «Сканер директорий и файлов pdf, который генерировал бы удобный отчет»

textual
                            Листинг программы 
                        
 
                            
                        
Sub STATISIKA()
 
  Dim Folder As String
  Dim wb As String
  Dim i As Integer
  
    Dim AcroApp As Acrobat.CAcroApp
    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim numPages As Long
    Set AcroApp = CreateObject("AcroExch.App")
    Set Part1Document = CreateObject("AcroExch.PDDoc")
  'Показываем диалог выбора папки
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку, файлы в которой нужно обработать"
    .ButtonName = "Выбрать"
    .AllowMultiSelect = False
    If .Show Then Folder = .SelectedItems(1) Else Exit Sub
  End With
   i = i + 1
   Cells(i, 1) = "Содержимое папки " & Folder
   i = i + 1
        Cells(i, 1) = "Файл"
        Cells(i, 2) = "Страниц"
  'Начинаем читать файлы из папки
  wb = Dir(Folder & Application.PathSeparator & "*.pdf")
  While Len(wb) > 0
        i = i + 1
        Part1Document.Open (Folder & Application.PathSeparator & wb)
        numPages = Part1Document.GetNumPages()
        Part1Document.Close
            Cells(i, 1) = wb
            Cells(i, 2) = numPages
        wb = Dir 'читаем следующий файл
  Wend
    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
  
End Sub