>datadir="d:\c2007\tables\" &&Source >backdir="d:\c2007\tables\Backup\" && Target > >=adir(afiles,datadir+"*.dbf") > >declare integer CopyFile in KERNEL32.dll ; > string @SourceFileName, ; > string @DestFileName, ; >integer bFailIfExists > >nsucces=0 >for nt = 1 to alen(afiles,1) > nsucces=copyfile("datadir"+afiles[nT,1],"backdir"+afiles[nT,1],0) > wait window "Done" > if nsucces = 0 > wait window "Error" > exit && > endif >endfor >