This Macro will copy a file, check if it has been authentic.
It will delete an eventually available Destination File.
Between all steps it will check that these files are accesibel and not open.
'
'SPR Script-file: Batch Library
'Purpose: Copy Files and verify checksum of Source/Dest
'Author: Theo Gottwald
'Creation date: 01-07-2017 at 21:49:54
'===========================================================
' Usage: Source/Destination
%F_Copy_Verify $$SRC|$$DES
ENR.
'#######################################################################
'#######################################################################
'#######################################################################
: %F_Copy_Verify 2
GSB.F_Copy_Verify|§§§01|§§§02
END%
:F_Copy_Verify
SAV.Save|$$FIA|$$FIB|$$CSA|$$CSB
VAF.$$FIA=§§_01
VAF.$$FIB=§§_02
'MBX.$$FIA->$crlf$$$FIB
IEF.$$FIA
GMD.vf|$$FIA|$$CSA
DEL.$$FIB
WFF.<>$$FIB|10
JIT.erol
COP.$$FIA|$$FIB
GMD.vf|$$FIB|$$CSB
JIV.$$CSA!$$CSB|eroc
EIF.
SAV.Restore
RET.
:erol
MBX. Ein Fehler beim Löschen ist aufgetreten
END.
:eroc
MBX. Ein Fehler beim Kopieren ist aufgetreten$crlf$$$FIB
END.
'#######################################################################
'#######################################################################
'#######################################################################
ENR.