home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u344.dms / in.adf / rexx / filedelete.tpl next >
Encoding:
Text File  |  1990-04-03  |  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.