On Error Resume next
DestinationFile = Metadata.Values("%ORIGINALFILENAMEWITHPATH%")
SourceFile = Metadata.Values("%ORIGINALFILENAMEWITHPATH%")

SourceFile = SourceFile & ".bak"

Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CopyFile SourceFile, DestinationFile, True
If Err.Number <> 0 Then
  call Application.log(99,"Error in copy file: " & Err.Description)
  call Application.log(99,"DestinationFile: " & DestinationFile)
  call Application.log(99,"SourceFile: " & SourceFile)
  Err.Clear
End If
Set fso = Nothing