Re: FINDNEXTFILE


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

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:



Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





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


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]