WITH oInter FOR n=1 TO .nInterOpts caImportFiles=[oInter.aInterOpts(]+TRANSFORM(.nInterOpts)+[) .aImportFiles] caInternalFiles=[oInter.aInterOpts(]+TRANSFORM(.nInterOpts)+[) .aInternalFiles] IF .FilesExist(caImportFiles, cImportPath, lSync) AND ; .FilesExist(caInternalFiles, cDataPath, lSync) .CleanFiles(caInternalFiles, cDataPath, cOutPath, lSync) ENDIF ENDFOR ENDWITHand in your function
FUNCTION FilesExist(caFiles, cPath, lSync, cUser) lnFiles=ALEN(&caFiles,1) IF lnFiles>0 && Just in case lcErrMsg='' FOR x=1 TO lnFiles IF NOT FILE(cPath+&caFiles(x,1)) lcErrMsg=lcErrMsg+CHR(13)+[The ]+&caFiles(x,2)+[ file. (]+&caFiles(x,1)+[)] ENDIF ENDFOR : : : ENDIFThe ability to do this oneself makes the limitation on passing properties by reference nonsensical.
>>IF FilesExist(.aImportFiles, cImportPath) AND ; >> FilesExist(.aInternalFiles, cDataPath) >> >> CleanFiles(.aInternalFiles, cDataPath, cOutPath) >>ENDIF >>>>