Jump to content


This is a ready-only archive of the InstallSite Forum. You cannot post any new content here. / Dies ist ein Archiv des InstallSite Forums. Hier können keine neuen Beiträge veröffentlicht werden.
Photo

VB Script fails to change INSTALLDIR


2 replies to this topic

sanjoygr

sanjoygr
  • Full Members
  • 76 posts

Posted 30 March 2006 - 08:40

I have a custom action which is having following VBScript.

CODE

<HTML>
<BODY>  
<script language="vbscript">
<%
Option Explicit
Dim MyFixFolderName,InstallDefaultPath
Dim InstallDefaultFolder
MyFixFolderName="THRTE_4.7.5\"
InstallDefaultPath = Session.Property("INSTALLDIR")
InstallDefaultPath = Trim(InstallDefaultPath)
Session.Property("INSTALLDIR") = Left(InstallDefaultPath,3) & MyFixFolderName
Session.Property("_BrowseProperty")=Session.Property("INSTALLDIR")
 
 %>    
 </Script>
</BODY>
</HTML>


The custom action is called in DOAction of OK push buttom of INTALLCHANGRDIALOG.

While installing the application from the setup steps followed.
1. Go for change installation directory (DestinationDialog)
2.Select a different folder and click OK button (InstallChangeFolderDialog)
3.The installation stops and it goes to InstallShield Wizard Complete Dialog box with follwoing message.
QUOTE

The Wizard was interupped before [ApplicationName] could be completelyinstalled.
Your System has not been modified.To completely install please run setup another again.
Click Finsh To Exit Wizard.


QUOTE

NO matter how many times I run.  It gives me the same result.

1.How can I see what the value of INSTALLDIR in the script?
2.I have added INSTALLDIR with value C:\THRTE in the Behavior And Logic >Property Manager.

Can you say the cause of these poblem?


QUOTE

Please note in this Custom action all UI sequence and exec sequence is Absent from sequence as it is called on DO Action even.
Return Processing:Synchronous (Check Exit Code)
In-Script Execution:Immediate Execution
Execution Scheduling:xecute Only Once


I have attached the vervose log
The last few lines are as follows:

QUOTE

=== Logging stopped: 3/30/2006  12:55:49 ===
MSI © (B8:E0) [12:55:49:456]: Note: 1: 1708
MSI © (B8:E0) [12:55:49:456]: Product: JBC FolderLatest -- Installation operation failed.

MSI © (B8:E0) [12:55:49:472]: Grabbed execution mutex.
MSI © (B8:E0) [12:55:49:472]: Cleaning up uninstalled install packages, if any exist
MSI © (B8:E0) [12:55:49:472]: MainEngineThread is returning 1603
=== Verbose logging stopped: 3/30/2006  12:55:49 ===

Attached Files


Edited by sanjoygr, 30 March 2006 - 09:38.


Stefan Krueger

Stefan Krueger

    InstallSite.org

  • Administrators
  • 13,269 posts

Posted 30 March 2006 - 10:16

If that is really your script code, then this is not valid VBScript syntax, but the HTML code of a HTML page with embedded VBScript. Try this instead:
CODE
Option Explicit
Dim MyFixFolderName,InstallDefaultPath
Dim InstallDefaultFolder
MyFixFolderName="THRTE_4.7.5\"
InstallDefaultPath = Session.Property("INSTALLDIR")
InstallDefaultPath = Trim(InstallDefaultPath)
Session.Property("INSTALLDIR") = Left(InstallDefaultPath,3) & MyFixFolderName
Session.Property("_BrowseProperty")=Session.Property("INSTALLDIR")


sanjoygr

sanjoygr
  • Full Members
  • 76 posts

Posted 30 March 2006 - 14:00

Thanks for your suggestion.
Please let me know is following required in VBscript function.
CODE

Session.Property("_BrowseProperty")=Session.Property("INSTALLDIR")

QUOTE

As in the Destination Dialog in Change push bottom we have [_BrowseProperty], INSTALLDIR,1

Edited by sanjoygr, 03 April 2006 - 06:52.