*
* BorderoPath(, )
*
* function copyeleList copies the files from 1 directory to another
*
* txtFileName
* the name of the text file
*
* newdir
* the path where to put the file
* Return:
*
*
*
Function copyeleList

Parameter txtFileName, newdir,isMacro
Local lctextFile, lcNumOfEle, lcFiletoCopy, newdir2,lcstring,lnBCopy

lnBCopy = 0
lcNumOfEle = adir(aFiles, "*.*")
For i = 1 to lcNumOfEle
     lcFiletoCopy = aFiles[i]
     newdir2 =substr(lcFiletoCopy, rat("\",lcFiletoCopy))
     newdir2 = newdir + newdir2
     If FILE(lcFiletoCopy)
*if file does exists
          Copy FILE (lcFiletoCopy) to (newdir2)
          lnBCopy = lnBCopy + 1
     Else
*if file doesn't exists Use GetMess
          If !isMacro
          Endif
     Endif

Endfor
Return lnBCopy