VB6/VBA access to PDF Metadata

[joopa]

Hey,
I want to access the metadata or just the file properties of an Adobe PDF document. This is to read the title/autohr etc into a test string and then print a barcode.

Any suggestions? Prefer using VB6 or VBA, don't have any .NET.

THANKS!
J

 

[JustinEzequiel]

had this lying around...

Function ReadPDF(ByVal sFile As String) As Boolean
  Dim oDoc As Object ' Acrobat.CAcroPDDoc
  
  Set oDoc = CreateObject("AcroExch.PDDoc")
  With oDoc
    If .open(sFile) Then
      msFileName = .GetFileName
      mnNumPages = .GetNumPages
      mnPageMode = .GetPageMode
      msTitle = .GetInfo("Title")
      msSubject = .GetInfo("Subject")
      msAuthor = .GetInfo("Author")
      msKeywords = .GetInfo("Keywords")
      msCreator = .GetInfo("Creator")
      msProducer = .GetInfo("Producer")
      .Close
      ReadPDF = True
    Else
      ReadPDF = False
    End If
  End With
  
  Set oDoc = Nothing
End Function