You can simplify it little bit.

...
llOk2Copy = .F.
IF FILE(lcSource) ;
       AND (NOT FILE(lcDest) OR FDATE(lcSource,1) > FDATE(lcDest,1)) 
  COPY FILE (lcSource) TO (lcDest)
  llOk2Copy = .T.
ENDIF
RETURN llOk2Copy 

>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?