Aufruf: API Funktionen

LONG = APISetFileTimes(cFileName AS STRING , tCreationTime AS STRING , tLastAccessTime AS INTEGER , tLastWriteTime AS INTEGER , bUTCTimes AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APISetFileTimes (cFileName AS STRING ,tCreationTime AS STRING ,tLastAccessTime AS INTEGER ,tLastWriteTime AS INTEGER ,bUTCTimes AS LONG ) AS LONG
	*/ DECLARE LONG SetFileTimes IN vfp2c32.fll AS APISetFileTimes STRING cFileName,STRING tCreationTime,INTEGER tLastAccessTime,INTEGER tLastWriteTime,LONG bUTCTimes
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN SetFileTimes()
		CASE PCOUNT()=1
			RETURN SetFileTimes(m.cFileName)
		CASE PCOUNT()=2
			RETURN SetFileTimes(m.cFileName,m.tCreationTime)
		CASE PCOUNT()=3
			RETURN SetFileTimes(m.cFileName,m.tCreationTime,m.tLastAccessTime)
		CASE PCOUNT()=4
			RETURN SetFileTimes(m.cFileName,m.tCreationTime,m.tLastAccessTime,m.tLastWriteTime)
		CASE PCOUNT()=5
			RETURN SetFileTimes(m.cFileName,m.tCreationTime,m.tLastAccessTime,m.tLastWriteTime,m.bUTCTimes)
	ENDCASE
ENDFUNC