Re: Copyfile Enhancment Progress Bar

Posted by Grant Foraker on September 15, 2008 at 07:02:17:

In Reply to: Re: Copyfile Enhancment Progress Bar posted by Mike Saunders on September 13, 2008 at 06:29:06:

This what what I did way back to move a PDF archive file from pdfFactory's AutoSave folder to a folder outside Comet but on the Comet Server. I do a DOSFC to create the destination folder in case it doesn't already exist. The program runs in background so I didn't use FileCopy.

MPA10:
!--------------------- MAKE SUB DIRECTORY -------------------------
LET DOSFUNCT$ = 'D'
LET DIRECTORY$ = STRIP(PATH$)
IF STRIP(AACODE$) NE ''
LET DIRECTORY$ = DIRECTORY$ + STRIP(AACODE$) + '\'
ELSE
LET DIRECTORY$ = DIRECTORY$ + ASSN$ + '\'
ENDIF

AX$ = "@3900@" ! Set AX to "MAKE DIREC."
CX$ = "@0000@" ! Set CX register to null
DOSFC(AX$,CX$,DIRECTORY$) EXCP = DOSERROR

MPA20:
!--------------------- MOVE FILE TO ARCHIVE -----------------------
IF FULLPART$ = 'P'
LET DOSFUNCT$ = 'M'
LET ARCNAME$ = DIRECTORY$ + 'Financials' + '.PDF' + "@00@"
ELSE
LET ARCNAME$ = DIRECTORY$ + 'GMP-' + MEDATE$ + '.PDF' + "@00@"
ENDIF
AX$ = "@FFF9@"
BX$ = "@0000@"
DOSMS(AX$,BX$,PDFName$,ARCName$) EXCP = DOSERROR

Follow Ups:

• Re: Copyfile Enhancment Progress Bar Mike Saunders 08:43:02 09/15/08 (2)
  • Re: Copyfile Enhancment Progress Bar Grant Foraker 09:11:11 09/15/08 (1)
    • Re: Copyfile Enhancment Progress Bar Mike Saunders 10:20:43 09/15/08 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.