lcPath = ADDBS(JUSTPATH(DBC())) COPY TO (lcPath+"UANSupportTop10") NEXT 10 SCATTER memvar SELECT 0 USE Heat_support!UANSupportCallType ALIAS UANSuportCallType SELECT 0 USE (lcPath+"UANSupportTop10") GO top I = 1 lcCopiedFiles = [] SCAN SCATTER memvar REQUERY("UANSuportCallType") SELECT UANSuportCallType NewName = lvPath + "UANSupportCallType" + TRANSFORM(I) COPY TO (NEWNAME) lcCopiedFiles = lcCopiedFiles + NEWNAME + CHR(13)+CHR(10) I = I + 1 SELECT UANSuportTop10 ENDSCAN MessageBox(LEFT(lcCopiedFiles, LEN(lcCopiedFiles)-2))