>Dear Experts
>
>How to convert these codes into vfp
>
>

>PARAMETERS FN
>BUFFER=" "
>HANDLE=FOPEN(FN,2)
>IF HANDLE>-1
>   FREAD(HANDLE,@BUFFER,1)
>   FBYTE=ASC(BUFFER)
>   FSEEK(HANDLE,0,0)
>   IF FBYTE=3
>      FWRITE(HANDLE,CHR(26),1)
>   ENDIF
>   FCLOSE(HANDLE)
>ENDIF
>RETURN .T.
>

It's already VFP code. You can alternatively you filetostr, strtran, strtofile functions.