Sub fileName()
    Dim fso, myPath, myFolder, myFile, myFilesPath(), myFilesName(), i, j
    Dim iPath As String
    'Записываем в переменную myPath полное имя папки
    myPath = ThisWorkbook.path & "\0.Опись\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myFolder = fso.GetFolder(myPath)
    If myFolder.Files.Count = 0 Then
        MsgBox "В папке «" & myPath & "» файлов нет"
        Exit Sub
    End If
    ReDim myFilesPath(1 To myFolder.Files.Count)
    ReDim myFilesName(1 To myFolder.Files.Count)
    For Each myFile In myFolder.Files
        i = i + 1
        myFilesPath(i) = myFile.path
        myFilesName(i) = myFile.Name
        Debug.Print myFilesName(i)
    Next
    Debug.Print "Фильтр = " & UBound(myFilesName)
    For j = 1 To UBound(myFilesName)
        If myFilesName(j) Like "1.13 *" Then 'метка имени файла, в котором считаем страницы - нужна для группировки
            iPath = myFilesPath(j)
            Call PDFCount(iPath)
        End If
    Next j
End Sub
Function PDFCount(PDFИмя As String)
    PDFCount = 1
    Ищем = "/Count"
    Разделитель = Chr(10)
    Open PDFИмя For Binary Access Read Lock Read As #1
    While Not EOF(1)
        Line Input #1, fstr
        If InStr(fstr, Ищем) > 0 Then
            PDFCount = word(fstr)
        End If
    Wend
    Close #1
    Debug.Print PDFИмя & ": Страниц = " & PDFCount
End Function