home *** CD-ROM | disk | FTP | other *** search
- .KEY FROM,TO
- .BRA {
- .KET }
- ;$VER: Move V2.1 (30.09.1998)
- Echo ""
- Echo " Move V2.1 by Zito/Zetec"
- Echo ""
- If "{FROM}" EQ ""
- Echo " Missing arguments! (Use h for help)"
- Skip Fail
- Endif
- If "{FROM}" EQ h
- Echo " Usage: Move [From] [To] "
- Skip End
- Endif
- If "{FROM}" EQ help
- Echo " Usage: Move [From] [To] "
- Skip End
- Endif
- If "{FROM}" EQ "{TO}"
- Echo " You can`t move {FROM} to itself!"
- Skip Fail
- Endif
- If Not Exists "{FROM}"
- Echo " {FROM} doesn`t exist!"
- Skip Fail
- Endif
- If "{TO}" EQ ""
- Echo " No destination set!"
- Skip Fail
- Endif
- If Exists "{TO}"
- Echo " {TO} already exists!"
- Skip Fail
- Endif
- If "{TO}" EQ "NIL"
- Run >NIL: Delete "{FROM}" ALL >NIL:
- If Exists "{FROM}.info"
- Run >NIL: Delete "{FROM}.info" ALL >NIL:
- Endif
- Echo " {FROM} deleted!"
- Echo ""
- Echo " Done!"
- Skip End
- Endif
- Run >NIL: Copy "{FROM}" "{TO}" ALL >NIL:
- Run >NIL: Delete "{FROM}" ALL >NIL:
- If Exists "{FROM}.info"
- Run >NIL: Copy "{FROM}.info" "{TO}.info" ALL >NIL:
- Run >NIL: Delete "{FROM}.info" ALL >NIL:
- Endif
- Echo " {FROM} moved to {TO}!"
- Echo ""
- Echo " Done!"
- Skip End
- Lab Fail
- Echo ""
- Echo " Move failed!"
- Lab End
- Echo ""
-