FUNCTION fsize2
PARAMETERS gcFileName && File to be checked
PRIVATE pnHandle,pnSize
IF PARAMETERS( ) = 0
RETURN -2 && Return -2 if no parameter passed
ELSE
IF !FILE(gcFileName)
RETURN -1 && Return -1 if file does not exist
ENDIF
ENDIF
pnHandle = FOPEN(gcFileName) && Open file
pnSize = FSEEK(pnHandle,0,2) && Determine file size, assign to pnSize
=FCLOSE(pnHandle) && Close file
RETURN pnSize && Return value