Сканер директорий и файлов 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д