PDF SplitterX

dim C
Set C=CreateObject("PDFSplitter.PDFSplitterX")
C.Convert "c:\source1.pdf", "c:\Dest Folder\", "-fo"
set C = nothing

$src="C:\\test\\test.pdf";
$dest="C:\\DestFolder\\";
if (file_exists($dest)) unlink($dest);
$c= new COM("PDFSplitter.PDFSplitterX");
$c->convert($src,$dest, "-c PDF -log c:\doc.log");
if (file_exists($dest)) echo "OK"; else echo "fail:".$c->ErrorMessage;

require 'win32ole'
c = WIN32OLE.new('PDFSplitter.PDFSplitterX')

src="C:\\test\\test.pdf";
dest="C:\\test\\DestFolder";

c.convert(src,dest, "-c PDF -log c:\\test\\PDFSplitter.log");

if not File.exist?(dest)
  puts c.ErrorMessage
end

import win32com.client
import os.path

c = win32com.client.Dispatch("PDFSplitter.PDFSplitterX")

src="C:\\test\\test.pdf";
dest="C:\\test\\DestFolder";

c.convert(src, dest, "-c PDF -log c:\\test\\PDFSplitter.log");

if not os.path.exists(file_path):
  print(c.ErrorMessage)

uses Dialogs, Vcl.OleAuto;

var
  c: OleVariant;
  Source: String;
begin
  c:=CreateOleObject('PDFSplitter.PDFSplitterX');
  Source:='c:\test\source1.pdf';
  C.Convert(Source, 'c:\DestFolder', '-cPDF -log c:\test\PDFSplitter.log');
  IF c.ErrorMessage<>'' Then
    ShowMessage(c.ErrorMessage);
end;

use Win32::OLE;

my $src="C:\\test\\test1.pdf";
my $dest="C:\\DestFolder";

my $c = CreateObject Win32::OLE 'PDFSplitter.PDFSplitterX';
$c->convert($src,$dest, "-c pdf  -log c:\\test\\PDFSplitter.log");
print $c->ErrorMessage if -e $dest;