Anyone have a "copy file if newer function"?

I need to copy a bunch of files that may exist if they do I only want to copy them if the file date is newer (ie the file is changed) which I'm hoping will save time...

So far i got:

FUNCTION CopyFileIfNewer
LPARAMETERS lcSource,lcDest
LOCAL lcError,lok

	lok=.F.
	IF !FILE(lcSource)
		RETURN .F.
	ENDIF
	
	IF !FILE(lcDest)
		COPY FILE (lcSource) TO (lcDest)
		RETURN .T.
	ENDIF
	
	IF FDATE(lcSource)<>FDATE(lcDest) OR (FDATE(lcSource)=FDATE(lcDest) AND FTIME(lcSource)<>FTIME(lcDest))
		COPY FILE (lcSource) TO (lcDest)
		RETURN .T.
	ENDIF
RETURN lOk

But it doesn't feel like the best/fastest way to do it?