home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / KOBOLD~1.LZH / KOBOLD_3 / JOBS / DUP_KILL.KBJ < prev    next >
Text File  |  1979-12-03  |  1KB  |  41 lines
  1. * DUP  Killer
  2. | -----------
  3. | Löscht alle *.DUP und *.BAK Dateien auf den angemeldeten 
  4. | Laufwerken ab C. Das 'Unified Drive' U unter MultiTOS wird
  5. | nicht bearbeitet.
  6.  
  7. set_drive 0 = C | bei C: starten
  8.  
  9. set_drive 1 = C | Dummy-Variable für den Alert
  10. 5:
  11. next_drive 1,5  | Die Schleife läuft über alle verfügbaren Laufwerke.
  12.                 | Am Schlu₧ steht in Var. 1 das letzte Laufwerk.
  13.  
  14. alert "?Alle *.DUP und *.BAK Dateien auf %0-%1 (au₧er U:) löschen?|!~Ja|~Nein",10,20
  15.  
  16. 10:
  17.  
  18. dialog_level=0  | keine Dialoge
  19.  
  20.  
  21. | Hier beginnt die eigentliche Löschschleife
  22. 15:
  23. branch_on_drive 0 (U:18) | Nicht Laufwerk U: unter MultiTOS
  24.  
  25. src_select %0:  | Quellaufwerk aus Variable 0
  26.  
  27. choose se extensions=(dup,bak)
  28.                 | Alle '*.DUP' und '*.BAK' Dateien exklusiv
  29.                 | auswählen, Pfade werden ignoriert, wenn nicht
  30.                 | anders angegeben.
  31.                 | In den Klammern können natürlich noch weitere
  32.                 | Endungen angegeben werden.
  33.  
  34. delete          | und weg damit...
  35. 18:
  36. next_drive 0,15 | Wenn es noch weitere Laufwerke gibt, dann nochmal
  37.                 | Löschen auf dem nächsten Laufwerk
  38.  
  39. 20:
  40. quit            | ciao...
  41.