home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxtools.zip / clean / clean.cmd next >
OS/2 REXX Batch file  |  1999-04-15  |  585b  |  28 lines
  1. /* Cleaner with REXX bye cygnus, 2:463/62.32 */
  2. call RxFuncAdd 'SysLoadFuncs', 'Rexxutil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. call SysCls
  5.  
  6. signal on halt name break
  7.  
  8. if SysIni('User','Cleaner','Target') \= 'ERROR:' then 
  9. do
  10.  target = SysIni('User','Cleaner','Target')
  11.  timer =  SysIni('User','Cleaner','Timer')/1000
  12. end
  13. else
  14.  target = 'Nothing to delete!'
  15. say 'RxCleaner. Processing ...' target
  16. say
  17.  
  18. if SysIni('User','Cleaner','Autoclean') = 1 then
  19. do forever
  20.  '@DEL' target '/n 2>nul' 
  21.  call SysSleep timer
  22. end
  23. exit
  24.  
  25. break:
  26. '@cls'
  27. say 'Execution terminated!'
  28.