>>>copy file ("a.txt") to ("c:\program files\my application\a.txt")
>>>

>>c = [copy file a.txt to "c:\program files\my application\a.txt"]
>>&c
>>

FUNCTION CopyFile
	LPARAMETERS lpcFile1,lpcFile2,lpcSafety
	* lpcfile1 - source file
	* lpcfile2 - destination file 
	* [lpcsafety] - overwrite default on or off for set safety 
	LOCAL llReturn	
	IF PCOUNT()>=2 AND ;
		VARTYPE(m.lpcFile1)="C" AND ;
		NOT EMPTY(m.lpcFile1) AND ;
		FILE(m.lpcFile1) AND ;
		VARTYPE(m.lpcFile2)="C" ;
	THEN 
		LOCAL lcSafety
		m.lcSafety = SET("Safety") 
		IF VARTYPE(m.lpcSafety)=[C] AND ;
			NOT EMPTY(m.lpcSafety) AND ;
			INLIST(m.lpcSafety,'ON','OFF','on','off') ;
		THEN 
			SET SAFETY &lpcSafety
		ENDIF 
		LOCAL lcCmd 
		m.lcCmd = [copy file "] + m.lpcfile1 + [" to "] + m.lpcfile2 + [" ] 
		&lcCmd 
		m.llReturn = FILE(m.lpcFile2) 
		SET SAFETY &lcSafety
	ENDIF 
	RETURN m.llReturn 
ENDFUNC && CopyFile

LOCAL lcCmd 
m.lcCmd = [copy file "] + m.lpcfile1 + [" to "] + m.lpcfile2 + [" ] 
&lcCmd 

copy file (m.lpcfile1) to (m.lpcfile2)