=ADIR(aFiles,"data\*.*")
DECLARE INTEGER CopyFile IN KERNEL32.DLL ;
STRING @SourceFileName, ;
STRING @DestFileName, ;
INTEGER bFailIfExists
FOR nT = 1 TO ALEN(aFiles,1)
nSucces=CopyFile(SYS(5)+SYS(2003)+"\data\"+aFiles; [nT,1], SYS(5)+SYS(2003)+"\dataexport\"+aFiles[nT,1],0)
IF...