home *** CD-ROM | disk | FTP | other *** search
- .KEY FROM/A,TO/A
- ; $VER MTCopy 1.2 (29.11.93) © Alessandro Sala
- ;
- ; Example script to execute a multitasking copy from Workbench using AddTools
- ; v1.20 - By Alessandro Sala
- ; 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
-
- echo "Completed."
-
- wait 1 sec
-