home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / wp_dtp / textplus.lzh / TextPlus / English / rexx / filedelete.tpl next >
Text File  |  1991-04-11  |  510b  |  25 lines
  1. /* File Löschen-Macro */
  2. /* delete file macro */
  3.  
  4. options results
  5.  
  6. /* TextPlus ist unser host */
  7. /* TextPlus is our host */
  8.  
  9. address 'TextPlus'
  10.  
  11. /* hole den filenamen */
  12. /* get the filename */
  13.  
  14. 'GetName'
  15.  
  16. /* und lösche das File von der Diskette - vorrausgesetzt es existiert C:Delete */
  17. /* and delete the file from disk - provided C:Delete exists */
  18.  
  19. 'Execute' 'C:Delete' result
  20.  
  21. /* tell user what happened */
  22.  
  23. if rc > 0 then 'Display' 'File has been deleted!'
  24.           else 'Display' 'Error while deleting!'
  25.