llok=checkfilesize() IF !llok MESSAGEBOX('Your files need to be archived. Please contact Support.',0+48+4096,'Maximum file size exceeded') ENDIF FUNCTION checkfilesize maxsize = 20000000 warnsize= 19998000 lltoobig=.F. *--Location of tables ddir="\profiler\data\" *--Create an array to hold file list lnfiles=ADIR(filelist,ddir+'*.*') IF lnfiles>0 FOR i = 1 TO ALEN(filelist,1) IF TYPE('filelist(i,2)')="N" .and. filelist(i,2)>warnsize STORE .T. to lltoobig ENDIF ENDFOR ELSE MESSAGEBOX("No files were found!",16+4096,"Error!") ENDIF IF lltoobig RETURN .F. ENDIF RETURN .T.