Many thanks!! I sure am glad it's Friday....Apparently my brain is already enjoying the weekend.......
>Youn should use VFP constans not VB
>
>#define FOF_CREATEPROGRESSDLG 0x4
>
>>The below works fine except that the FOF_CREATEPROGRESSDLG doesn't appear to be evaluated....The &H4&
>>should stop the dialog box from being displayed....What am I missing??
>>
>>
>>#define FOF_CREATEPROGRESSDLG "&H4&"
>>
>>SELECT 0
>>USE backupfiles
>>
>>SCAN
>> lcSource=ALLTRIM(source)
>> lcDestination=ALLTRIM(destinat)
>> IF backupfiles.Overwrite=.t.
>> objShell=CREATEOBJECT('Shell.Application')
>> objFolder=objShell.NameSpace(lcDestination)
>> objFolder.CopyHere(lcSource, FOF_CREATEPROGRESSDLG)
>> ENDIF
>>ENDSCAN
>>
>>
>>CLOSE DATABASES
>>return