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

   Dim docToConvert As String = "c:\users\public\test.ps"

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

   DC.setParameter("DocumentOutputFormat", "PDF")
   DC.setParameter("DocumentOutputName", "testPS_VBNET")
   DC.setParameter("DocumentOutputFolder", "c:\users\public\")

   Dim RVal As Integer
   RVal = DC.setInputDocument(docToConvert)
   If (RVal <> 0) Then MsgBox("Invalid input document!!!")

   RVal = DC.create
   DC = Nothing

   If (RVal <> 0) Then
      MsgBox("Error while converting the document!!!")
   Else
      MsgBox("Done!!!")
   End If