home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / ep_pack / beta--ep_egdel.rexx next >
OS/2 REXX Batch file  |  1996-11-13  |  1KB  |  75 lines
  1. /* Ask delete! V1.1 By Warp / GiGA Productions ©1996 */
  2.  
  3.  
  4.  
  5.  
  6. Parse Arg Path
  7.  
  8. Title = "Ask delete! V1.1 By Warp/GiGA ©1996"
  9.  
  10.  
  11. Call initlibs
  12.  
  13.  
  14. Filename=Filepop(Path)
  15.  
  16.  
  17.  
  18. If exists(Filename) then do
  19.  
  20.  
  21.  
  22.     Address Command "C:Delete "Filename" Force quiet"
  23.  
  24.    Say Filename' has been deleted... Thank you...' 
  25.  
  26. end
  27.  
  28.        
  29.        
  30. Initlibs:
  31.  
  32.     a=0
  33.  
  34.     If exists('LIBS:rexxreqtools.library') ~= 1 then do
  35.             Say 'Unable to open rexxreqtools.library'
  36.             a=1
  37.     end
  38.     
  39.     If exists('LIBS:reqtools.library') ~= 1 then do
  40.             Say 'Unable to open reqtools.library'
  41.             a=1
  42.     end
  43.     
  44.     if a=1 then do
  45.         say 'Unable to run:'
  46.         say Title
  47.         say 'Get the libraries listed above, you will need them/it...'
  48.         exit
  49.     end
  50.     
  51.   
  52.                 call addlib("rexxreqtools.library", 0, -30, 0)
  53.             /*  ^- Libs R found, now we link the reqtools.lib via rexxreqtools.lib */
  54. Return
  55.  
  56. /*
  57. **           ^- Check for needed libraries, and react upon...   
  58. */
  59.  
  60.  Filepop: Procedure expose Title
  61. Parse arg Path
  62.  
  63.     Filename = rtfilerequest(Path,,Title,"_Delete mod!","rtfi_buffer=TRUE rtfi_height=495 rt_reqpos=reqpos_centerscr")
  64.  
  65.     if rtresult=0 then do
  66.         return 0
  67.     end
  68.     else do
  69.            return Filename
  70.     end
  71. /*
  72. **           ^- Pop a file req, and return the name of it...   
  73. */
  74.  
  75.