home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / text+guides / amigaosguide / scripts / del next >
Encoding:
AmigaDOS Script File  |  1995-04-17  |  1.2 KB  |  73 lines
  1. .KEY FILE/A
  2. .BRA {
  3. .KET }
  4.  
  5. ; $VER: Del 3.6 (27.01.95) © by Thorsten Willert
  6. ; DELETE (Lösch)-Befehl mit Sicherheitsabfrage und gleichzeitigem löschen des Icons.
  7.  
  8. FailAt 21
  9.  
  10. IF EXISTS {FILE}
  11.   ASK "*N*E[1m{FILE} wirklich löschen?*E[0m (Y/N)"
  12.   IF WARN
  13.     DELETE >ENV:Meldung{$$} {FILE} {FILE}.info
  14.     GET RESULT2 >ENV:Fehler{$$}
  15.       IF $Fehler{$$} EQ 216
  16.        SKIP 1
  17.       ENDIF
  18.       IF $Fehler{$$} EQ 222
  19.        SKIP 1
  20.       ENDIF
  21.       IF $Fehler{$$} GT 1
  22.        SKIP 2
  23.       ENDIF
  24.       IF RC GE 5
  25.        SKIP 3
  26.       ENDIF
  27.   ELSE
  28.    ECHO "{FILE} wurde nicht gelöscht:"
  29.    ECHO "Benutzer Abbruch."
  30.    SET ERR 0
  31.   ENDIF
  32.   SKIP Ende
  33. ELSE
  34.  ECHO "*N*E[1m{FILE} existiert nicht!*E[0m*N"
  35. QUIT 5
  36.  
  37. LAB 1
  38.   ECHO "{FILE} wurde nicht gelöscht:"
  39.   FAULT $Fehler{$$}
  40.   ASK "*N*E[1m{FILE} trotzdem löschen?*E[0m (Y/N)"
  41. IF WARN
  42.  DELETE >ENV:Meldung{$$} {FILE} {FILE}.info FORCE ALL
  43.  GET RESULT2 >ENV:Fehler{$$}
  44.    IF $Fehler{$$} GT 1
  45.     SKIP 2
  46.    ENDIF
  47.    IF RC GE 5
  48.     SKIP 3
  49.    ENDIF
  50. ELSE
  51.  ECHO "{FILE} wurde nicht gelöscht:"
  52.  ECHO "Benutzer Abbruch."
  53.  SET ERR 0
  54. ENDIF
  55. SKIP Ende
  56.  
  57. LAB 2
  58. ECHO "{FILE} wurde nicht gelöscht:"
  59. FAULT $Fehler{$$}
  60. SET ERR 20
  61. SKIP Ende
  62.  
  63. LAB 3
  64. ECHO $Meldung{$$}
  65. SET ERR 5
  66. SKIP Ende
  67.  
  68. LAB Ende
  69. UnSetENV Fehler{$$}
  70. UnSetENV Meldung{$$}
  71. ECHO ""
  72. QUIT $ERR
  73.