home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / ijpb014.zip / DeInst.CMD < prev    next >
OS/2 REXX Batch file  |  1998-07-28  |  1KB  |  54 lines
  1. /*  DeInst.CMD
  2.  *  ----------
  3.  *  Copyright (c) Cornelis Bockemuehl, 1998
  4.  *
  5.  *  Deinstall InjoyPB program:
  6.  *  - Delete desktop objects
  7.  *  - Delete program files except configuration (InjoyPB.CFG)
  8.  */
  9.  
  10. '@echo off'
  11.  
  12. if RxFuncQuery('SysLoadFuncs') then do
  13.    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  14.    call SysLoadFuncs
  15. end
  16.  
  17. say "*************************"
  18. say "Deinstallation of InjoyPB"
  19. say "*************************"
  20. say ""
  21.  
  22. do until (aa="Y") | (aa="N")
  23.   say "Do you want to remove InjoyPS from your computer? (y/n)"
  24.   pull aa .
  25. end
  26.  
  27. if aa="Y" then do
  28.   say "Deleting folder with objects..."
  29.   call SysDestroyObject "<INJOYPBFOLDER>"
  30.  
  31.   say "Deleting program files..."
  32.   'del Readme.DOC >nul'
  33.   'del InjoyPB.EXE >nul'
  34.   'del Install.CMD >nul'
  35.   'del Config.CMD >nul'
  36.   'del CalcMany.CMD >nul'
  37.   'del ConfigA.ICO >nul'
  38.   'del Docs.ICO >nul'
  39.   'del Folder.ICO >nul'
  40.   'del ConfigM.ICO >nul'
  41.   'del InjoyPB.ICO >nul'
  42.   'del InjoyPB.OUT >nul'
  43. end
  44.  
  45. say ""
  46. say "Deletion of InjoyPB done"
  47. say ""
  48. say "Configuration file intentionally not deleted: Either delete it by hand"
  49. say "  del injoypb.cfg"
  50. say "or keep it for in case you decide to reinstall InjoyPB later on."
  51. say "(But be careful not to overwrite it while doing so!)."
  52. say ""
  53. say "deinst.cmd (this file) not deleted: Delete it by hand."
  54.