home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 October / dpcb1098.iso / Business / Ventura / Ventura / Scripts / 7to8Converter.csc next >
Encoding:
Text File  |  1998-07-07  |  2.9 KB  |  84 lines
  1. REM Launches 7to8Converter.exe [CorelSCRIPT 8]
  2. REM 7to8Converter.csc  February, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script launches the 7to8Converter script executable. If the executable cannot be
  7. REM located, the user is prompted to locate this file themself, or exit the script.
  8. REM **************************************************************************************
  9.  
  10. ' Create a temporary folder to provide a path for the include files
  11. '  -this enables the include files to be located 
  12. #addfol "..\..\Scripts"
  13. #include "ScpConst.csi"
  14. #include "VPConst.csi"
  15.  
  16. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  17. DECLARE SUB RegQuery()
  18.  
  19. '/////GLOBAL VARIABLES & CONSTANTS////////////////////////////////////////////////////////
  20. GLOBAL VenturaRoot$                'Ventura root installation directory from registry
  21.  
  22. ' **************************************************************************************
  23. ' MAIN
  24. ' **************************************************************************************
  25. ON ERROR GOTO ErrorHandler
  26.  
  27. RegQuery            'get root directory where Ventura is installed
  28. ExecutableFile$ = VenturaRoot$ & "\Ventura\Scripts\7to8Converter.exe"
  29.  
  30. Start:
  31. ProcessStatus& = STARTPROCESS(ExecutableFile$)
  32. IF ProcessStatus& = 0 THEN 
  33.     Msg$ = "Unable to locate " & ExecutableFile$ & CHR(13) & "Would you like to look for the file yourself?"
  34.     MsgStatus& = MESSAGEBOX(Msg$, "Missing Executable", MB_OK_CANCEL OR MB_QUESTION_ICON)
  35.     IF MsgStatus& = MSG_OK THEN 
  36.         ExecutableFile$ = GETFILEBOX( "", , , ExecutableFile$)
  37.         IF ExecutableFile$ <> "" THEN GOTO Start    
  38.     ENDIF    
  39. ENDIF
  40.  
  41. ExitScript:
  42. STOP
  43.  
  44. ErrorHandler:
  45. SELECT CASE ErrNum
  46.     CASE 800
  47.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  48.         RESUME AT ExitScript
  49.     CASE ELSE
  50.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  51.         RESUME AT ExitScript
  52.     END SELECT
  53.  
  54.  
  55. ' *******************************************************************************
  56. ' RegQuery
  57. ' This subroutine queries the Registry to determine the root directory where 
  58. ' Ventura is installed.
  59. ' *******************************************************************************
  60. SUB RegQuery
  61. ON ERROR GOTO ErrorHandler
  62.  
  63.     'get Ventura config directory
  64.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  65.     
  66.     'isolate Ventura root directory from Ventura config directory
  67.     first% = 1
  68.     pos% = 1
  69.     DO WHILE first <> 0
  70.         first = INSTR(VentDir$, "\", first )
  71.         IF first <> 0 THEN
  72.             pos = first
  73.             first = first + 1
  74.         END IF
  75.     LOOP
  76.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  77.  
  78. EXIT SUB
  79. ErrorHandler:
  80.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  81.     ErrNum = 800
  82. END SUB
  83.  
  84.