HELP

>

>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

Sergey,
Can you help me see whats 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 certain lines of the original text file