1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

   Dim DC As Object : DC = CreateObject("Neevia.docCreator")

   DC.setInputDocument("c:\users\public\test.pdf")

   DC.setParameter("DocumentOutputFormat", "TXT")
   DC.setParameter("DocumentOutputName", "testTXT_VBNET")
   DC.setParameter("DocumentOutputFolder", "c:\users\public\")

   Dim RVal As Integer : RVal = DC.create
   DC = Nothing

   If (RVal <> 0) Then
      MsgBox("Error while parsing the PDF file!!!")
   Else
      MsgBox("Done !!!")
   End If