I have a custom action which is having following VBScript.
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.
VB Script fails to change INSTALLDIR
Started by
sanjoygr
, Mar 30 2006 08:40
2 replies to this topic
Posted 30 March 2006 - 08:40
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.
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") |
Stefan Krüger
InstallSite.org twitter facebook
Posted 30 March 2006 - 14:00
Thanks for your suggestion.
Please let me know is following required in VBscript function.
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.