FEOF( ) Function Example

*** Open the file test.txt ***

gnFileHandle = FOPEN('test.txt')

*** Move the file pointer to BOF ***

gnPosition = FSEEK(gnFileHandle, 0)

*** If file pointer is at BOF and EOF, the file is empty ***
*** Otherwise the file must have something in it ***

IF FEOF(gnFileHandle)
   WAIT WINDOW 'This file is empty!' NOWAIT
ELSE
   WAIT WINDOW 'This file has something in it!' NOWAIT
ENDIF
= FCLOSE(gnFileHandle)