Posted by Grant Foraker on May 17, 2011 at 09:00:32: Uploaded files: 3
Running CometAnywhere Host on a 2008 server. Getting a copy file error on the CAW client.
Path3.jpg is the Source
Path4.jpg is the Destination
Path5.jpg is the error.
Error is 3/23. Is 23 - 3 + 5 + 15?
LaunchTheDocument:
CLOSE (1) ! RELEASE PRINTER
INPUT (#) PDFDOC$ ! GET pdfFactory name
LET PDFDOC$ = STRIP(PDFDOC$)
LET PDFL = LEN(PDFDOC$)
IF SUB(PDFDOC$,PDFL,1) NE 'f' LET PDFDOC$ = SUB(PDFDOC$,1,PDFL-1) !!!!! COMET32 BUG WORKAROUND
LET PDFP = RPOS('\',PDFDOC$)
LET PDFFILE$ = SUB(PDFDOC$,PDFP+1,PDFL-PDFP)
LET PDFFILE$ = STRIP(PDFFILE$)
LET PDFDOC$ = '"' + STRIP(PDFDOC$) + '"'
LET Stat$ = Sub(Dstat(ITERM$, EXCP = LTD20),21,1)
If Sub(Binary(Stat$),8,1) NE "1" Go LTD20 ! not Comet Anywhere?
LTD10:
LET CAWDOC$ = '$(CATEMP)\' + PDFFILE$
LET FLAGS = 0 + 512 + 1024 + 2048
MSGBOX(PDFDOC$)
MSGBOX(CAWDOC$)
Print (CopyFile = PDFDOC$, CAWDOC$, FLAGS)
GOSUB GetResult
IF FuncError NE 1
LET MBMSG$ = 'Copy Error:' + STR(FuncError) + '/' + STR(FileError)
MSGBOX(MBMSG$)
GOTO LTD90
ENDIF
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.