Dear Sir,

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)
ENDIF

When 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 agian

So suggest some other codes to copy used files.

Wish you all the best