.KEY FROM/A,QUIET/S,KILL/S,DONTASK/S
; $VER: clone V2.1 (15.01.97) Axel Burghardt
.BRA {
.KET }
IF "{DONTASK}" EQ ""
ASK "Von {FROM} nun Klone x{FROM} erzeugen (Y/N)?"
IF WARN
SKIP clone
ELSE
SKIP bye
ENDIF
ENDIF
LAB clone
IF EXISTS "x{FROM}disk.info"
copy "x{FROM}disk.info" to t:
ENDIF
IF "{KILL}" NOT EQ ""
echo "L�sche erst x{FROM} ..."
delete "x{FROM}#?" ALL {QUIET} FORCE
ENDIF
echo "Kopiere nun von {FROM} nach x{FROM} ..."
copy "{FROM}#?" to "x{FROM}" ALL {QUIET} CLONE
IF EXISTS "x{FROM}.backdrop"
delete "x{FROM}.backdrop" QUIET
ENDIF
IF EXISTS "t:disk.info"
delete "x{FROM}disk.info" QUIET FORCE
copy "t:disk.info" to "x{FROM}" QUIET
delete "t:disk.info" QUIET FORCE
ENDIF
echo "Klone x{FROM} erzeugt!"
LAB bye
Neue Version: Der Modus �KILL� funktioniert nun
fehlerfrei
|