Sub pdfToImages(fileName As String)As ResumableSub
Dim shl As Shell
shl.Initialize("shl", "java.exe", Array As String("pdfbox-app-2.y-z.jar","ExtractImages", fileName))
shl.WorkingDirectory = File.dirapp
shl.Run(-1)
wait for (shl) shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success And ExitCode = 0 Then
Return 0
Else
Log("Error: " & StdErr)
Return 1
End If
End Sub