Local lcErro, llErro
Set Safety Off 
***
lcErro = On("Error")
On ERROR llErro = .T.
Copy File Teste.DBF to Teste2.DBF
If llErro
  MessageBox("Houve problema na cópia")
Else
  MessageBox("Cópia efetuada com Sucesso")
EndIf
On error &lcErro