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