VBA to iterate through hundreds of PDFs in a directory

[Priebe]

Hello, I have a pretty urgent need for work. In a nutshell, I will have hundreds (possibly thousands) of PDFs in a local directory. Each PDF will be ~20 pages. I need to programmatically identify all PDFs that do not have a specific text string in them. Ideally, the output would be a list of the PDF filenames in a column of a single sheet in the workbook, one filename per row. I have looked around but so far have not found anything that I can adapt to accomplish this. Help is much appreciated!

 

[footoo]

Have assumed that the files to be listed do not have a specific text string in the file name.
Adapted from here : VBA Loop Through PDF Files in a Folder or Directory | VBAF1

'VBA Loop Through .pdf files in a given Folder
Sub List_PDF_Files_WO_String()
    
    'Variable Declaration
    Dim sFilePath As String
    Dim sFileName As String
    Dim str As String
    
    'Specify File Path
    sFilePath = "D:\Test"
    
    'Specify string to look for
    str = "Some String"
    
    'Check for back slash
    If Right(sFilePath, 1) <> "\" Then
        sFilePath = sFilePath & "\"
    End If
        
    sFileName = Dir(sFilePath & "*.pdf")
    
    Do While Len(sFileName) > 0
        If Right(sFileName, 3) = "pdf" Then
            If InStr(sFileName, str) = 0 Then _
                ActiveSheet.Cells(Rows.Count, "A").End(3)(2) = sFileName
        End If
        'Set the fileName to the next available file
        sFileName = Dir
    Loop
   
End Sub

 

[Priebe]

Have assumed that the files to be listed do not have a specific text string in the file name.
Adapted from here : VBA Loop Through PDF Files in a Folder or Directory | VBAF1

'VBA Loop Through .pdf files in a given Folder
Sub List_PDF_Files_WO_String()
   
    'Variable Declaration
    Dim sFilePath As String
    Dim sFileName As String
    Dim str As String
   
    'Specify File Path
    sFilePath = "D:\Test"
   
    'Specify string to look for
    str = "Some String"
   
    'Check for back slash
    If Right(sFilePath, 1) <> "\" Then
        sFilePath = sFilePath & "\"
    End If
       
    sFileName = Dir(sFilePath & "*.pdf")
   
    Do While Len(sFileName) > 0
        If Right(sFileName, 3) = "pdf" Then
            If InStr(sFileName, str) = 0 Then _
                ActiveSheet.Cells(Rows.Count, "A").End(3)(2) = sFileName
        End If
        'Set the fileName to the next available file
        sFileName = Dir
    Loop
  
End Sub

Actually needed to search within the PDF documents themselves, not the filename. But, we were able to come up with another solution.