lcDir = text2.value &&In your case LOCAL ARRAY aFls(1,1) ADIR(aFls,ADDBS(lcDir)+"*.*") IF ALEN(aFls,1)>0 FOR lnk=1 TO ALEN(aFls,1) IF TYPE("aFls[lnk,1]")="C" IF !aFls[lnk,5]$"D" lcSourceFile = ADDBS(lcDir)+aFls[lnk,1] lcDestFile = ADDBS(lcChildName)+aFls[lnk,1] WAIT "Copy File "+lcSourceFile WINDOW NOWAIT COPY FILE (lcSourceFile) TO (lcDestFile) ENDIF ENDIF ENDFOR ENDIFDenis
cd(text2.value) >delete file *.* &&delete old backup >cd (text1.value) >copy file *.* to (text2.value)&© real data to backup>I get error message in the last line ('cannot create file!').