nFiles = ADIR(aBWFiles,SOURCEPATHNAME + SOURCEFILEMASK)

LOCAL cConCatString, aBWFile[1,5], nFiles, i
>#DEFINE SOURCEPATHNAME = '.\BW\'  && this is the BW subfolder of the Current Working Directory
>#DEFINE SOURCEFILEMASK = 'PROCESS*.DAT'
>cConCatString = ''
>nFiles = ADIR(aBWFiles,SOURCEPATHNAME + SOURCEFILEMASK)
>FOR i = 1 TO nFiles  && this avoids all copies if no files were found
>   cConCatString = cConCatString + FILETOSTR(SOURCEPATHNAME + aBWFiles[i,1])
>ENDFOR
>=STRTOFILE(cConCatString,'MyConCatFile.DAT',.F.)  && .T. would append to any existing MyConCatFile.DAT found
>RELEASE cConCatString  && releases the large string memory allocation