home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / INSHP232.LHA / HippoPlayer / ARexx / delfile.HiP < prev    next >
Encoding:
Text File  |  1996-01-14  |  672 b   |  31 lines
  1. /* HippoPlayer - del file
  2. **
  3. ** This script parses the filename of the played module and then
  4. ** deletes it from the list.
  5. ** After that a requester pops up and asks you if you want to
  6. ** delete the file from disk too.
  7. **
  8. ** Written by Marcel Doering [DonDoringo@GURU.rhein-main.de]
  9. */
  10.  
  11. options results
  12.  
  13. address 'HIPPOPLAYER'
  14.  
  15. get cnam
  16. CNAM = result
  17.  
  18. ADDLIB('rexxreqtools.library',0,-30,0)
  19. IF ~EXISTS(cnam) then do
  20. nf=rtezrequest('Couldn`t find 'cnam' !'||'0a'x||'Aborting...','Okay','HiP_copy.rexx',)
  21. exit
  22. end
  23.  
  24. DEL
  25.  
  26. del=rtezrequest('Do you want to delete 'cnam' ?','Yes|No','HiP_copy.rexx','rtez_defaultresponse = 0',)
  27. if del=1 then
  28. address command 'delete 'cnam''
  29.  
  30. EXIT
  31.