Roxen.git / server / etc / Win32Installer.vbs

version» Context lines:

Roxen.git/server/etc/Win32Installer.vbs:1: + ' + ' $Id: Win32Installer.vbs,v 1.1 2004/11/29 16:47:55 grubba Exp $ + ' + ' Companion file to RoxenUI.wxs with custom actions. + ' + ' 2004-11-29 Henrik Grubbström + '    -  + ' Creates "[SERVERDIR]pikelocation.txt" with the + ' content "[SERVERDIR]pike\bin\pike" +  + Function CreatePikeLocation() +  Dim fso, tf, serverdir +  Set fso = CreateObject("Scripting.FileSystemObject") +  +  serverdir = Session.Property("SERVERDIR") +  +  Set tf = fso.CreateTextFile(serverdir & "pikelocation.txt", True) +  tf.WriteLine(serverdir & "pike\bin\pike") +  tf.Close +  +  CreatePikeLocation = 1 + End Function   Newline at end of file added.