home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_deletefile.edge < prev    next >
Text File  |  1995-07-10  |  604b  |  23 lines
  1. /*
  2. ** $VER: Menu_DeleteFile.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Löscht einige Dateien
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Benutzer nach den zu löschenden Dateien fragen */
  13. requestfile title """Zu löschende Datei(en) auswählen...""" multiselect path """""" file """""" getdir
  14.  
  15. /* Wurden Dateien selektiert, dann ... */
  16. if rc==0 then do
  17.     files = result
  18.     
  19.     /* Sicherheitsabfrage */
  20.     requestchoice """Sollen die gewählten Einträge wirklich gelöscht werden?"""
  21.     if RC == 0 then address command delete """"files""""
  22. end
  23.