>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.
First, you don't need the quotes and the macro in SET DEFAULT:
Set Default to (Destinationfolder)
Second, sounds like you need a loop to wait until the table exists:
DO WHILE NOT FILE('ABC.DBF')
DOEVENTS
ENDDO
Tamar