home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
fish
/
911-930
/
ff928
/
addtools
/
mtcopy
< prev
next >
Wrap
AmigaDOS Script File
|
1994-05-04
|
550b
|
26 lines
.KEY FROM/A,TO/A
;
; Example script to execute a multitasking copy from Workbench using AddTools
; By Alessandro Sala © 1993
; Usage: Copy this file into your S: volume; select the source icon, the
; destination icon (if this is a file, only its path will be
; considered) and choose Copy from the Tools menu.
;
.BRA {
.KET }
list >T:mtc_destp "{TO}" lformat="%P"
set <T:mtc_destp >NIL: destP ?
delete >NIL: T:mtc_destp
if exists "{FROM}"
copy FROM "{FROM}" TO "$destP"
endif
if exists "{FROM}.info"
copy FROM "{FROM}.info" TO "$destP"
endif