Use Scripting.FileSystemObject to copy files
---------------------------

ofso = CreateObject("Scripting.FileSystemObject")

Local ;
cFileToCopy, ;
cDirToCopyFrom

m.cDirToCopyFrom = "C:\MYDIR\"
m.cDirToCopyTo = "C:\YOURDIR\"
m.cFileToCopy = SYS(2000, cDirToCopyFrom+'*.*')


DO WHILE !EMPTY(m.cDirToCopyFrom)
oFileHandler = ofso.GetFile(m.cDirToCopyFrom+m.cFileToCopy)
oFileHandler.Copy(m.cDirToCopyTo+m.cFileToCopy)
ENDDO

oFileHandler = .F.
ofso = .F.

-----------
Arto