Product Version
Posted 24 January 2002 - 23:38
Posted 25 January 2002 - 20:35
Dim ismProject As ISWiProject
Set ismProject = New ISWiProject
ismProject.OpenProject strISMFile 'Name and path of the ISM file
ismProject.ProductName = strProject & " " & strVersion
ismProject.ProductVersion = strVersion 'Version number as string
'i.e. "3.1.2"
guid = "{" & CreateUUID & "}" 'CreateUUID - sub that generates a GUID
ismProject.PackageCode = guid
guid = "{" & CreateUUID & "}"
ismProject.ProductCode = guid
ismProject.SaveProject
ismProject.CloseProject
Posted 11 February 2002 - 16:19