>nRECCOUNTCONVERT=ALLTRIM(STR(RECCOUNT())) >cRECCOUNTCONVERT=' of '+ALLTRIM(STR(RECCOUNT())) >Local loMyObject >loMyObject = CreateObject("MyObject") >loMyObject.Mainprocess() >Return > >DEFINE CLASS MyObject AS Custom >PROCEDURE Mainprocess Local Parallel as Parallel >local llReTry llReTry = .f. >Parallel = NewObject("Parallel", "ParallelFox.vcx") >Parallel.SetWorkerCount(Parallel.CPUCount) >Parallel.StartWorkers() > >SCAN >oFilename=ALLTRIM(Fullpath) >iFilename=ALLTRIM(Newpath) >RCNON=Recno() >Try >Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) >catch to loError > if loError.ErrorNo = 2027 > llReTry = .t. > else > * log the error > endif >ENDTRY >if m.llReTry > try >Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) > catch to loError > * log the error >ENDTRY >ENDSCAN >ENDPROC > >PROCEDURE PDF2PS >PARAMETERS oFilename,iFilename,RCNON >Declare INTEGER VeryPDF_PDF2Vector in pdf2vec.dll String strCommandLine >Strcmd= 'pdf2vec -$ XXXXXXXXXXXXXXXX '+CHR(34)+iFilename+CHR(34)+" "+CHR(34)+oFilename+CHR(34) >nRet = VeryPDF_PDF2Vector(strcmd) >Sys(2335, 1) && disable unattended mode, allow UI >WAIT WINDOW 'Converting to PS..'+ALLTRIM(STR(RCNON)) NOWAIT >RETURN >ENDPROC >ENDDEFINE > >I made some changes in your code.