LOCAL oShell, oSrcFolder, oDstFolder oShell = CREATEOBJECT("Shell.Application") oSrcFolder = oShell.NameSpace('D:\C2007\TABLES') oDstFolder = oShell.NameSpace('D:\C2007\TABLES\BACKUP') IF VARTYPE(oDstFolder)="O" AND VARTYPE(oSrcFolder.Items)="O" oDstFolder.CopyHere(oSrcFolder.Items) ENDIFWhen I use your abov codes, it show following error message
Cannot copy acws: it is being used ny another person or program Close any program that might by using the file or try agianSo suggest some other codes to copy used files.