'...
 
On Error GoTo err_FileCopy
 
FileCopy "d:\temp\TEST.docx", "d:\temp\" & FileName
 
On Error GoTo err_xyz
 
'restlicher Code
 
  Exit Sub 'Function
 
err_FileCopy:
  'Evtl. noch Err.Number auswerten
  'Evtl ein wenig warten z.B. 500ms
  Resume 'Bewirkt, dass VB an die Stelle zurückkehrt an der der Fehler 
  ' aufgetreten ist.

Gruß
Dirk

--
?Get it right the first time