home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 504b.lha / TextPlus3.0EN / rexx / filedelete.tpl next >
Encoding:
Text File  |  1991-05-05  |  510 b   |  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.