local m.lcfile1,m.lcfile2 m.lcfile1=getfile() m.lcfile2=getfile() if empty(m.lcfile1) or empty(m.lcfile2) return .f. endi if filetostr(lcfile1)==filetostr(lcfile2) &&exact string compare messagebox(lcfile1+" equals to "+lcfile2++chr(13)+" length (chars)="+trans(len(filetostr(lcfile1)))) else messagebox("2 files not equals"+chr(13)+lcfile1 + " [len (chars)="+trans(len(filetostr(lcfile1)))+"] "+chr(13)+lcfile2 +" [len (chars)="+trans(len(filetostr(lcfile2)))) endi