>Hi,
>
>I am using the code below to copy files to lcSourceFolder from lcPath.
>The problem is I get a message to overwrite files for every file. How can I avoid or say yes just once.
>
>
>Local lcPath
>If Version(2) = 2
> lcPath = Justpath(Sys(16, 0))
> If Atc('PROCEDURE', lcPath) > 0
> lcPath = Substr(lcPath, Rat(':', lcPath) - 1)
> Endif Atc('PROCEDURE', lcPath) > 0
>Else
> lcPath = Addbs(Justpath(_vfp.ServerName))
>Endif Version(2) = 2
>*return lcPath
>
>lcSourceFolder = Thisformset.frmSecure.text2.Value
>
>Copy File (Addbs(lcSourceFolder) + "*.*") To (lcPath)
>
>
>Thanks
SET SAFETY OFF
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.