Re: FINDNEXTFILE

Posted by Grant E Foraker on April 30, 2019 at 10:58:31:

In Reply to: FINDNEXTFILE posted by Jeff Cinelli on April 30, 2019 at 09:46:32:

My workaround is to copy the file into Comet on TMP and get Comet to give me the Date/Time. It's part of my DocMgr rebuild routine.
==========================================================
GetDateTime:
EXTRACT (7,2670) KEY = '*DIR'
LET ZSORT = ZSORT + 1
WRITE (7,2670) KEY = '*DIR'
LET TOFILE$ = '~' + STRIP(STR(ZSORT)) + '.PDF'
CREATE TOFILE$, DIR = 'TMP', EXCP = GDT90

LET FROMJOBNAME$ = STRIP(WPATH$) + FILENAME$
LET TMPJOBNAME$ = '$(CATEMP)\' + TOFILE$ ! DESTINATION NAME ON TMP DIRECTORY
LET FLAGS = 0 + 0 + 0 + 2048 ! SOURCE CAW, DEST CAW, PROG BAR, OVERWRITE

Print (CopyFile = FROMJOBNAME$, TMPJOBNAME$, FLAGS) ! COPY TO TMP DIRECTORY
GOSUB GetResult
IF FuncError NE 1
LET MBMSG$ = 'Copy Error:' + STR(FuncError) + '/' + STR(FileError)
LET MBMSG$ = MBMSG$ + '@0D0A@From: ' + STRIP(FROMJOBNAME$)
LET MBMSG$ = MBMSG$ + '@0D0A@To: ' + STRIP(TMPJOBNAME$)
MSGBOX(MBMSG$)
GOTO ProgExit
ENDIF
LET FSTAT$ = FSTAT(TOFILE$, DIR = 'TMP')
LET JobDate$ = SUB(FSTAT$,74,4) + SUB(FSTAT$,70,4)
LET JobTime$ = SUB(FSTAT$,131,4) + SUB(FSTAT$,129,2)
ERASE TOFILE$, DIR = 'TMP', EXCP = GDT90
GDT90:
RETURN

Follow Ups:

• Re: FINDNEXTFILE Jeff Cinelli 12:06:56 04/30/19 (1)
  • Re: FINDNEXTFILE Grant E Foraker 13:53:29 04/30/19 (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.