Using the Following code, I am copying One Folder from Source to Destination Folder.

LOCAL oShell, oSrcFolder, oDstFolder
CreateDirectory('&Destinationfolder',0)
oShell = CREATEOBJECT("Shell.Application")
oSrcFolder = oShell.NameSpace('&sDirectory')
oDstFolder = oShell.NameSpace('&Destinationfolder')

IF VARTYPE(oDstFolder)="O" AND VARTYPE(oSrcFolder.Items)="O"
oDstFolder.CopyHere(oSrcFolder.Items)
ENDIF
****************

*Afterwards, I am Using

Set Default to ('&Destinationfolder')
Use ABC.DBF

MY problem is while the copying process is Not yet completed the my next commands i,e Set Default to ('&Destinationfolder')
& Use ABC.DBF are executed and an error ABC.DBF does not exist is generated.

What is to be Done ?
Regards
Harsh