>I just want to read the text.

for VFP 7 or +:

filetostr() will get all the content of file and store to a variable..

for VFP 6 or less, try it:

cwmydata = filetostring("c:\test1.txt")

FUNCTION filetostring
LPARAMETER lcdatafile
lndfh=FOPEN(lcdatafile)
lcparameter=""
IF  lndfh > 0
    nsize =  FSEEK(lndfh, 0, 2)           && Move to EOF
    IF  nsize <= 0                        && is empty
    ELSE
        = FSEEK(lndfh, 0, 0)
        DO WHILE NOT FEOF(lndfh)
            lcparameter=lcparameter+FREAD(lndfh,nsize)
            *
        ENDDO
        *
    ENDIF
    =FCLOSE(lndfh)
ELSE
    * Error opening data file
ENDIF
RETURN lcparameter

HTH