home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / lw321.arj / DONTRUN.CMD < prev    next >
Encoding:
Text File  |  1996-03-19  |  1.2 KB  |  51 lines
  1. /* LiveWire/WPS DE-installation script */
  2. /* TO BE USED ONLY IN CONJUNCTION WITH */
  3. /* THE DEINST.EXE PROGRAM !!!          */
  4.  
  5. /* Send all commands only to CMD.EXE */
  6. ADDRESS CMD.EXE
  7.  
  8. /* Install REXX system functions */
  9. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  10. call sysloadfuncs
  11.  
  12. /* Determine the path to LiveWire */
  13. DeInstallPath = ARG(1)
  14. if (DeInstallPath = "") then Exit
  15. DeInstallSpec = DeInstallPath||"\*"
  16.  
  17. /* Begin installation */
  18. ECHO OFF
  19. call SysCls
  20. Say ""
  21. Say "LiveWire/WPS DeInstall Script"
  22. Say ""
  23. Say "Deleting the following folders:"
  24.  
  25. /* Get the directory tree */
  26. call SysFileTree DeInstallSpec, 'DirTree', 'DS'
  27.  
  28. /* Erase contents of the directories */
  29. do i=1 to DirTree.0
  30.    DirTree.i = SUBSTR(DirTree.i, 38)
  31.    Say DirTree.i
  32.    "erase" DirTree.i "/N"
  33. end
  34.  
  35. /* Remove the directories */
  36. do i=DirTree.0 to 1 by -1
  37.    "rmdir" DirTree.i
  38. end
  39.  
  40. /* Remove the main directory */
  41. "erase" DeInstallPath "/N"
  42. "rmdir" DeInstallPath
  43.  
  44. /* Remove us from the startup folder */
  45. ret = SysDestroyObject("<LW30_DEINSTALL>");
  46. ret = SysDestroyObject("<LW_FOLDER_TEMPLATE>");
  47. ret = SysDestroyObject("<LIVEWIRE30_MAIN_FOLDER>");
  48.  
  49. /* Delete us! */
  50. erase LWDEINST.CMD
  51.