home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 6 / Sonderheft_6-96.iso / pd / disktools / kan / purgeall < prev    next >
AmigaDOS Script File  |  1996-11-03  |  835b  |  51 lines
  1. .key drive/A
  2. .bra {
  3. .ket }
  4.  
  5. failat 21
  6. delete >nil: "{drive}KAN/#?" all quiet
  7. if FAIL
  8.   skip ERR
  9. endif
  10. if exists "{drive}:KAN2"
  11.   delete >nil: "{drive}:KAN2/#?" all quiet
  12.   if FAIL
  13.     skip ERR
  14.   endif
  15. endif
  16. if exists "{drive}:KAN3"
  17.   delete >nil: "{drive}:KAN3/#?" all quiet
  18.   if FAIL
  19.     skip ERR
  20.   endif
  21. endif
  22. if exists "{drive}:KAN4"
  23.   delete >nil: "{drive}:KAN4/#?" all quiet
  24.   if FAIL
  25.     skip ERR
  26.   endif
  27. endif
  28. if exists "{drive}:KAN5"
  29.   delete >nil: "{drive}:KAN5/#?" all quiet
  30.   if FAIL
  31.     skip ERR
  32.   endif
  33. endif
  34. if exists "{drive}:KAN6"
  35.   delete >nil: "{drive}:KAN6/#?" all quiet
  36.   if FAIL
  37.     skip ERR
  38.   endif
  39. endif
  40. if exists "{drive}:KAN7"
  41.   delete >nil: "{drive}:KAN7/#?" all quiet
  42.   if FAIL
  43.     skip ERR
  44.   endif
  45. endif
  46. failat 10
  47. quit
  48. LAB ERR
  49.  failat 10
  50.  echo "There may be Read Only files in some of your KAN directories"
  51.