home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / text+guides / amigaosguide / scripts / move < prev    next >
Encoding:
AmigaDOS Script File  |  1995-04-17  |  703 b   |  41 lines
  1. .key FROM/A,TO/A
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: MOVE 1.5 (26.12.94) © by Thorsten Willert
  6. ; Ein MOVE (Schiebe)-Befehl für AmigaDOS
  7.  
  8. FailAt 21
  9.  
  10. ECHO ""
  11.  
  12. RENAME >NIL: {FROM} TO {TO}
  13. IF WARN
  14.  IF NOT EXISTS {FROM}
  15.   ECHO "{FROM} kann nicht verschoben werden: Objekt nicht gefunden.*N"
  16.   QUIT 20
  17.  ENDIF
  18.  IF EXISTS {TO}
  19.   SKIP Existiert
  20.  ENDIF
  21. ELSE
  22.  SKIP Ende
  23. ENDIF
  24.  
  25. LAB Existiert
  26. ECHO "{FROM} wurde nicht verschoben: Zielobjekt existiert schon!*N"
  27.  
  28. ASK "*E[1m{FROM} trotzdem verschieben?*E[0m (Y/N)"
  29. IF WARN
  30.  Skip Ende
  31. ELSE
  32.  ECHO "{FROM} wurde nicht verschoben: Benutzer Abbruch.*N"
  33.  QUIT
  34. ENDIF
  35.  
  36. LAB Ende
  37. COPY >NIL: {FROM} TO {TO} ALL CLONE
  38. DELETE >NIL: {FROM} FORCE ALL
  39. ECHO "{FROM} wurde verschoben nach {TO}.*N"
  40.  
  41.