Edgar --

You may have a problem with your source file not being opened.

Test to make sure immediately after your FOPEN statement, that you ensure gnOrigin is positive. If not, an error has occured.

You may have a slight formatting problem with your expression SubStr(cMedSearch,1,6)+laFileList[i, 1]. A SET STEP, or whatever, and a review of the returned value in the debug window will tell you if you have what you want.

Jay

>HELP (MSDN not loaded)
>
>>

>>DIMENSION laFileList[1]
>>lnFiles = ADIR(laFileList, "*.*")
>>FOR i=1 TO lnFiles
>>  ? laFileList[i, 1]   && File Name
>>ENDFOR
>>

>>
>

>   gnOrigin = FOPEN(SubStr(cMedSearch,1,6)+laFileList[i, 1],1)
>   gnFile = FCREATE('c:\'+cDestDirect+'\'+laFileList[i, 1]+cFileExt)
>   IF gnFile < 0
>    WAIT WINDOW NOWAIT '*** Could not create file! '+laFileList[i, 1]+cFileExt
>   ELSE
>    DO WHILE !FEOF(gnOrigin)
>      m.buffer = FGETS(gnOrigin,320)
>      nFAIL=FPUTS(gnFile, m.buffer)
>      IF nFAIL = 0
>        nERRCNT= nERRCNT+ 1
>        WAIT WINDOW NOWAIT "*** ERR WRITING RECORD "+laFileListA[i, 1]
>        =FCLOSE(gnFile)  && Close NEW file
>        =FCLOSE(gnOrigin)&& Close Original File
>        RETURN
>      ENDIF
>    ENDDO
>    =FCLOSE(gnFile)  && Close NEW file
>    =FCLOSE(gnOrigin)&& Close Original File
>   ENDIF
>

>Nadya,
>Can you help me see what's wrong with this code.
>Infinit loop: value of buffer always blank -
>All I want to do is read MedSearch and write to new Destination...
>After that works, I want to drop lines of the original text file having "ID"
>
>Any help appreciated.