home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / wp_dtp / textplus.lzh / TextPlus / German / rexx / filedelete.tpl next >
Text File  |  1991-04-11  |  375b  |  21 lines
  1. /* File Löschen-Macro */
  2.  
  3. options results
  4.  
  5. /* TextPlus ist unser host */
  6.  
  7. address 'TextPlus'
  8.  
  9. /* hole den filenamen */
  10.  
  11. 'GetName'
  12.  
  13. /* und lösche das File von der Diskette - vorrausgesetzt es existiert C:Delete */
  14.  
  15. 'Execute' 'C:Delete' result
  16.  
  17. /* benachrichtige den Anwender */
  18.  
  19. if rc > 0 then 'Display' 'File wurde gelöscht!'
  20.           else 'Display' 'Fehler beim Llöschen!'
  21.