clear BG_ACCUWIN="C:\FOXPRO\TMP\" lcline="" lccode="REM Test.txt"+CHR(13) lccode=lccode+"COPY %1 <<IMPORTPATH>> <<IMPORTFILE>>" ?STRTRAN(lccode,"<<IMPORTPATH>><<IMPORTFILE>>",BG_ACCUWIN+"ACCUWIN.TXT",1) ?STRTRAN(lccode,"<<IMPORTPATH>> <<IMPORTFILE>>",BG_ACCUWIN+"ACCUWIN.TXT",1) m.handle=FCREATE("test.txt") FOR i = 1 TO LEN(lccode) IF ASC(SUBSTR(lccode,i,1))=13 .OR. ASC(SUBSTR(lccode,i,1))=13 lcline=lcline+CHR(13)+CHR(10) ELSE lcline=lcline+SUBSTR(lccode,i,1) ENDIF ENDFOR ?STRTRAN(lcline,"<<IMPORTPATH>><<IMPORTFILE>>",BG_ACCUWIN+"ACCUWIN.TXT",1) ?STRTRAN(lcline,"<<IMPORTPATH>> <<IMPORTFILE>>",BG_ACCUWIN+"ACCUWIN.TXT",1) =FPUTS(m.handle,lcline) =FCLOSE(m.handle) MODIFY COMMAND test.txt