Function FileSizeInKB(cFilename)  && Tore's Name of function
   Local lhFileHandler, lnSize
   lhFileHandler = FOPEN(cFilename,0)
   IF cFilename < 0
      **** Error Message File can't be open
      RETURN 0
   ENDIF
   lnSize = FSEEK(lhFileHandler,0,2)  && Seek the end of file
   FCLOSE(lhFileHandler)

RETURN lnSize/1024


****** OR (not for BIG files)

Function FileSizeInKB(cFilename)  && Tore's Name of function
   Local lcStr
   lcStr = FILETOSTR(cFilename)
RETURN LEN(lcStr)/1024