Try this, probably faster also:

nFiles=ADIR(aFiles,'c:\jvc\*.*')
cDummy=''
#DEFINE CRLF CHR(13)+CHR(10)
IF nFILES>0
   FOR X=1 TO nFILES
      cDummy=cDummy+aFILES(X,1)+CRLF
   ENDFOR
ENDIF
STRTOFILE(cDummy,'list.txt')

>Great for the first program
>
>But in the second the txt is empty
>What could be wrong ?
>
>Moises