home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / af0_32b.zip / afdeinst.cmd < prev    next >
OS/2 REXX Batch file  |  1996-10-18  |  1KB  |  58 lines
  1. /**/
  2. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. Call SysCls
  6.  
  7. Say
  8. Say "         AF - The Archive Folder - Deinstallation program"
  9. Say "         ================================================"
  10. Say
  11. Say "  This script will destroy the Archive Folder program object and all"
  12. Say "  the associations and templates Archive Folder uses."
  13. Say
  14. Call charout, "  Do you want to continue? (y/N): "
  15.  
  16. answer = SysGetKey(echo)
  17.  
  18.  
  19. if answer <> "Y" & answer <> "y" then return
  20.  
  21. id.0 = 8
  22. id.1 = "<AF_ARJ_TEMPLATE>"
  23. id.2 = "<AF_ZIP_TEMPLATE>"
  24. id.3 = "<AF_ARC_TEMPLATE>"
  25. id.4 = "<AF_RAR_TEMPLATE>"
  26. id.5 = "<AF_LZH_TEMPLATE>"
  27. id.6 = "<AF_TEMPS>"
  28. id.7 = "<AF>"
  29. id.8 = "<AF_REG>"
  30. id.9 = "<AF_FOLDER>"
  31.  
  32. say
  33.  
  34. Do i = 1 To id.0
  35.   if SysDestroyObject( id.i ) then
  36.     Say "    "id.i "successfully destroyed"
  37.   else
  38.     Say "     Error destroying" id.i
  39. End
  40.  
  41. if SysIni( 'USER', "PMWP_ASSOC_TYPE", "Archive", 'DELETE:' ) = '' Then
  42.   Say "    Removed Archive file type"
  43. else
  44.   Say "    Error removing Archive file type"
  45.  
  46. if SysIni( 'USER', "AF", 'DELETE:' ) = '' Then
  47.   Say "    Removed AF entry in OS2.INI"
  48. else
  49.   Say "    Error removing AF entry in OS2.INI"
  50.  
  51. Say
  52. Say "  Now you can delete the installation directory to remove"
  53. Say "  The Archive Folder entirely."
  54. Say
  55. '@pause'
  56.  
  57.  
  58.