• Welcome to Jose's Read Only Forum 2023.
 

COPY / Verify Macro for SPR

Started by Theo Gottwald, October 15, 2020, 10:10:33 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Theo Gottwald

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.