General information
Title:
Overwrite message for every file
Environment versions
Network:
Windows 2003 Server
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only