Author Topic: COPY / Verify Macro for SPR  (Read 160 times)

0 Members and 1 Guest are viewing this topic.

Offline Theo Gottwald

  • Administrator
  • Hero Member
  • *****
  • Posts: 928
  • User-Rate: +30/-4
    • it-berater
COPY / Verify Macro for SPR
« on: October 15, 2020, 10:10:33 AM »
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.

Code: [Select]
'
'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.
« Last Edit: October 15, 2020, 10:14:29 AM by Theo Gottwald »