VBA and corrupt PDFs

[CedarTree]

Hello - I have a process that manipulates PDFs in Access VBA using the Adobe reference, etc. The problem is that when a PDF file is corrupt, it doesn't "crash" normally... rather Adobe will prompt me regarding the bad file and then only when I manually close the file / Adobe, Access will THEN take me to the VBA error where I could do some error trapping. But I want to remove the manual aspect to the process... any suggestions please? THANKS!!!

 

[CedarTree]

Thanks. Any non-native things (like I’m guessing Python might be) would be hard to get approval for @ my company.

 

[CedarTree]

Any other suggestions very welcome please! Thanks!

 

[ebs17]

when a PDF file is corrupt

Where does that come from, who makes something like this?
Is that you with your manipulation?

 

[CedarTree]

Where does that come from, who makes something like this?
Is that you with your manipulation?

I am first converting regular scanned pdfs to searchable PDFs (using 3rd party software) and then searching for certain words. During the conversion process every once in a while, it will create a corrupted PDF. Out of my control, but I do want to be able to test for it before searching for the words.

 

[CedarTree]

Find out if your company allows to use of .Net.

Thanks - I'll ask IT guys...

 

[CedarTree]

It seems I can download and run .net framework on a server that IT gave us (and has Access/VBA installed)... now what? Thanks!

 

[CedarTree]

I ended up doing much simpler coding, based on the END of the file (that may have %PDF in the header), but a corrupt PDF would much less likely have %PDF in the final line...

Function fnPDFCorrupt(pFileNameFull As String) As Boolean
  
    Dim sFileFooter As String
  
    sFileFooter = fnFileFooter(pFileNameFull)
    If Left(sFileFooter, 4) <> "%PDF" Then
        fnPDFCorrupt = True
    End If
  
End Function
Function fnFileFooter(pFileNameFull As String) As String

    Dim iFileNum As Long, vLine
  
    iFileNum = FreeFile()
    Open pFileNameFull For Input As #iFileNum
  
    Do While Not EOF(iFileNum) 'do a loop to get to last line
        Line Input #iFileNum, vLine
    Loop
  
    Close iFileNum
  
    fnFileFooter = CStr(vLine)
  
End Function

 

[CedarTree]

Actually, method #2 here works much better, even if it is a little slower...

The Effective Way to Find the Last Line Content of a Large Text File | Experts Exchange

Learn more about The Effective Way to Find the Last Line Content of a Large Text File from the expert community at Experts Exchange

www.experts-exchange.com